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^-<7 > 'J -X<Z> t -y h ffi&t L 

tit-ftitztrntfiKf? 

-f-5lZ x £><7,FRAY£|W] 



fc £f FRAY £ *£<&-) OHM*- 

(z+f- ^ II £ *KC U flSlfc few £ 4 

#-tf;K7)*S(iFRAYJ: U felt— ^ 
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7 7"f JU£t5I L fc U t l>? tztt 

HlZti|Tl*5MS-D0S£ N D0S1^ 
D0S21J 7 7"f ;U =l Wf^ 7*)U t 

*.#;<. fcl-mi& D0S1^D0S2T' 

f Uffl-r s r £ *"^ji^cCC7)/c t, *> 

^A,, ^C7)^fc?v3t^o *<ntzito. 
£4±T'li PC-9801 £-f$l\ S^T* 
(JMSX£-f£^ WTA6^l\ 
f"fc % 7 — 7°P^X— ?^— XtZ 
li#£l7JSl^ PC-9801 &, 7°P ?* 
7A<7)gfp^'tZ(i. 'MH»J#*IJ 

#a^-f^MSX£&£'£, f£^ 

D0S(Z^£--^;i3<7y(i s D7 



>K5-f>^^(J"tl^gI5^ HIS 
OO^iffiC^TF £*lfc* * A > * 1 1 * 
-?7°P>7>(7D^|fCo 23^73 

-v;b*"*ttlS<7)T\ HfrLfcup 

}T"bM^^teo 

£T, DOS177 < DOS2IZ&oT,A- 

S -fs MS-DOSi: ^ii'ipg/lT'-f 
U t Y U -A^x. i> «t lZt£^tz 

£\ Jl'J^<C7)7 7"r^ ; §r, cfc'J 

i ^ 8fc&tfBfc l J An b n/- z t o 

Z n fc MS-DOS i: #^i<7) fo (7) ^(7) 

ssstz^xbn^d: -5 cfflS? 

ZC7)(5*"(Zt)x DOSl^DOS2(7) 

jtiN(i-rp-rPife5<7)fc*itn^ 

DOS2(7)tft^* < jA* < -l>^'! 



©it ? n tz , *^r a *dos^-;s# * ? □ 
MS-DOS 

PC-9801 % (J U «) i r % >£ < <7) 1 6 £ 

t) X'fljffl ? tlT ^SDOSo 7 * U * T- 
S (iver.5.0fc'J U-X^tlfc,, 

B^^MSX-DOS2 

L^ DOS *— t- U v v (1256* PA-f 
t- c^RAMS-rt® L fc * -f y^lSOOR, 
RAM/j:L* { 24800R [#-^Sl]] fc'„ 4" 
^ *>% turbo Ht- h (J. v> >*■(*(;«* 
T-rtJ8E?tiS<t lizte-itz, %*/<- 

•> 3 >(7)Dosicj:b^, tllfitfo fitter 



JOS 

16£-y 1-fflt LTIiMS-DOSft^^o 
SS.fiTli. UNIX^OS/2 s Windows^' ^^) ! 

MSXT-^hn^OTIi. 3.5-f V-^t-'-t 
7. ■? C01DD i: 2DD ? -f "7°, PC-9801 4 iT 
T(J. 5 -f >^i:3.5-f >f OT, 2DDt 
2HD7-T y^'flJffl^n-So 2t#7y-f 

D0S(7)p-7> K%-!Sftf Sl-li, " 




• -OT^JHA^ 4 *8 = g^fcSffcC r DOS2ff)-r^T/) < t5fr-S)^*j^liU2«.(7>fc-o 
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±lZl\-o1dQTlZ&t:0s tt&Z£fc< 
5**>3o -&&s *ft*PPgJi»fc:h" 










lets, *P§Jrfc^?SS£a 

mtz &zt mm 1 1>\ * v>m 
mm 1 ozM t fry.* i j: to {h •?> 

X\ t © *&* " t HtfrWK 3 " 



7° h © \L=y I v K (I fc Z>A,tzt£s 
Z tltfo kf? S-yh T&A</£ < 

- ft** Ta b Jf '(MEWxntfo 

mm t^ini*. s*4>izzfp 

ttftv $*& SBSx &S. 1ifeSx 

m^ m, m, bt ^s ±*^jd(z 



CD(chdrr) 



A>CD A:[fM w* h 'J -£] 






r©iDii^a^ur<n§cDr, 
at^c&ofcd^tffiWo ■&©£ 



MD(mkdfr) 

A>MD A:[Tt i^ h •>-£] 



fifes t ) ,7 t 7 -r j wMmfttf*. 
o rasters,, 7n^tf-&b 

6U©PtSCt^«)d;^ Q 



if U < 5V b^7 h U -€ft«fc 
&©Z]V>K CDil^i, "¥" 

RD(rmdir) 

A>RD A:[r^f w* b !>-£] 

>K fcfcU ^©^I-t^ b? 
hy-^S(V'£"..")l^©7 



ffUd:ooV?5t*n6&lvfc©£ 

AdS#5, -ftt»ur<tir : fe 



CDZt fl£3fe©D0S1T(J x 
ItfrUfritzCDX, -7 7^MZm 
{zM^ibftfcWA— lr«fc ^ L < , 

* ? - o £ g^, T-i ^ tmtz -? tz 

£ Z *#D0S2T*(i*RlflMf|»££8 

%t£tfl$Wzt£'2i-<ntz e 

tt k°7 5 «y K©JI,^C i ^ B S 

fc u s», mm* *v y>^xtz 

u^ HJ-£$B»JTlfTV< Ci: 

^— vtiS-9 C^^l^^ ! t 
3S*At>i^A-fc UtuJci^^ 

a^LT, g^-^'i^ K7-f7'(i N 

^]l/>hK7< 7*(i, D0S1T*fe 
ft•5A % '^*Pr3•r^.^5«tfeo DOS© 
=i V> K^©£ #S^:?ni) 7° 
P>7> ("A>"t^ott7)^ 

?^#fciftSJLfzd:9lz, DOS 
^$Bt!)L/-cit^©*U> h'F9< 
7'ti * A "X\ -h U > h t-V U ^ h 

©A K^-ry^ Fiif^-ru^ h 
l )-*m^Xfr£i CfE%*£\,* 
t>-flZ^Z>"tm%? : bt, /\ or 7 
-l.—*f-r-r>8XWtz)o 








-(7)7 7 -f JU— K^-S^ L fc t Z -5„ 

DIR¥(¥«*B&aJ) 
i:A7JLT^ct-9o A K5r-f7*C 

? n%/ vXff * ¥ "( iS^Jfr bfF 
fjtlTl^f^U^ h'J-©;t 

T'<T©PiiiT f -f u^ h V-oM 
2tZ$>/c-5 DOSITIi, -f^T© 
77^^ JL/-hxVU^ h ij 

46©zi v> KtiMDo^-^xV U 
? MJ -©PJC^/c'o KLC* 

MD TOKYO 
t $T? t . *TOKYO" £ iv? t*A U 

DIR 

TOKYO <DIR> 

^L^7 7"r;u7j%?>(i-r^o S£ 

©tHo MC *< DIR > " £ & 5 © A\ 
frL<^bn/c7='i-u^ MJ-* 
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DIR¥TOKYO(¥(i^B§pI) 

* 7 -y #©' \ X/f It £ #-t?* N 

-f J Wr£> & - ft b (is DOSA^-f 

j£f)itti~fF5fc©o ^i;*^ftite 
Ait, *<753 7A^:gJ6fe-5 

^Jl^TtfT)<^J: % it it 
*T0KY0"(7)TC*MINAT0"^ t*? 
x'-r \st h 'J— %"f^r>T*So $1 

MD ¥TOKYO¥MINATO 

HitW^). 
Z©£#, *7>7>, ^fr* 



A(#>"W.x#). DOS?r«flJlZ 

\sl h- U-Sr.i^-f V x ¥**>\ 
*TOKYO"© -X iZ h $ © it "* > ! 

i:o(i v *¥"a:i^<7)(i, ;u— 
hf-ruyh v-£SBfrrafc:it 
U^fcv.^ A;*£H!N£fta N xV 
\y<7 h iJ-^f-fU^ hU— ^ 
£/;: £*&/:: #>©Jt)l|I£^t\ it* 
(/ -f^-fey \V— ? - 1 m J'ft-5 ) £ 

£i), ^£©»7X 
TOKYO¥MINATO 
it, *TOKYO©T©MINATO£^-} 

frltfo fe*,^^ f<^ hU 
-« < fc * GS y T If % P^JS # 

^ < K % ) n t\ * ¥ "x-mn z> m 



[TIL -Jlr> 9l-» 


■13 12: I0r> 


I, 
■ 


1* 


A :■> v: .., ,v-.,.,...vn.: , u 
K?Y:TA:ff 

A:WCKV»Mltft 

■ 


SOMA, 










7ft -Oh 



\\ II 



d:".."CDiE(*ttl? 



5y3xfco©^7-r;uii, DOStf 
xv b^ s u -£^irr§fc«xz) 

x"-f b^7 S 'J-€gg - rs©C& 
g&fe©fc'fr6s 'xx IV 9S8E 

BLMj-^L^©^:©^ 
K-vKy-to©7p-<JHS^b 



±©x-r b£ K 'J-GBix*-r bi7 
KU— £0*8) £JB0*Uru5 o 

*©^-s;-c?i»wrstf^ xv 

S«f»C, v*-f^^K'J-©ilB 

i?SL/^Uo ^c^6, Zft<o(D7 
7-(MZ>&W:t£l\iotto ^(Dfrt) 
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DIR TOKYO¥MINATO 
KZZLTs ^©4 3 ©Z 7 r-Ol/£ 
M.ZZ.£bT'£% tzttt\ ivo 

^b? h'J-^^PJ^T}^) 

£*k f-f^ h 'J— A < 1~2flg 
© ? *> (i^'lf T § 1 1 1\ *?-o l£ U 

f-oTi^ni:f<u^ h u- 

l#B;tSfc'3-5Lfc& 

X\ i;-?ii,DOS(z(j*>b> hf 
-ru* hO— fct*^ m\\*m& 

&<—i?Vb* -hx-otitiTZtz 
=tte Mtecnr-f \st h 'J— £i> 

'J— „ i^liSfc\ 3bU>h-r-f 
b? h 'J-^-hrVU^ h 'J 

-KHZ* z.n*u-fr(F)U£t £ T 

tt£o 

CD ¥TOKYO¥MINATO 
£ A^r ti(i' (V- 1 1 g © * ¥ "it 

tf *¥TOKYO¥MINATO* tZ^liL 

DIR 

tZhX\ *MINATO*£l^T f 












<b? HJ -©T(Z, *DAIJIN*£ 
*NIRASAWA*£l^7'-r b? V U 
—tfh-^tztTZso 1jU>\-J f -1 
b? h 'J— t**DAIJIN*T\ 'XZfr 

;uSTii<>i<!loML i;* 

&fro fc» "nirasawa" ti^r 

-fb? h 'J-JZ^bbh^ftZ 
— hT-V b? h U— * x «b<7) % f"< 



MOV[_^ A>M0VE [?r4fi<%]['?4\/W)-£\ 



©t-v b ^ k u -\zjsmt § =i v 

>Ko HISCDlif^B, "COPY" 
(*¥)Ur*^6"DEL"(iJI»)-r 



SCDilelUo fc£U 74 *5± 

7-r;beacDSB»(FAT)A:tf« 



MVD I |^A>MVDIR[f^HH£] 



[f*WJ-£] 



*MOVE*aV>H©5*-r b^7 

SU-JKo ■y-z^-rb^sy— £, 



3o Jr55fcFAT1t«©&£S 
&ffi*.5©Z\ iI^©"COPY" 
br v, DEL"brtU:5©c£C>, 



F\ N I R A>RNDIR[f 'Avm-%\ [7ivm-%\ 



TC\Z&&t&74 b^MJ- 
££. ^MT5fc«>©=]"7>Ko 
"REN"©tV b^ SU -figtS 



•5 5 0©3V> KI3DOS27ctt 
©t>© MS-DOS (ztfflgtitt 

Doseyo-tf-r ! 



XDIR A>XD,R [t^h;-£] 



T'-i'b^h'J— ©T©. t^Z 

(Dy7"0\y-m^mmt^>zi^y 

K "XDIR"tfclJ-A^-rst, 



^n-stfflis^Ttfbrg^tin 

So fc/cb^niS^gB3V>K7S 
©r, HeicRHA^^So 



XCOPV A>XCOPY A:0^£] B: 



t-v t.^7 c^sns^ T'OW 

^C=lt!--r5=l-7>So ®^© 
"COPY"=lY>K*\ Pi»-7*-f 






CD ¥TOKYO¥MINATO¥NIRASAWA 
t ia-3 J.-g-^o vv T0KY0"©lllZO 

*» J^U-hT-Vb^ h 'J-frib© 
^^r^illll?:^: LT ^ •& frb tz a 



CD¥ 

CD ..¥NIRASAWA 
ILfcct-5^ *b>Mz*IT 



pp^^'TixtjOor^Vb^h'j-^i^! 



fcs dii^vb^Ku-cfcurs 
sft«*^-rs©tf w ¥"o 3nis;u 

-ST'-fb^K'J-SiiWrsW^ 
|C, §xVb^KU-^IxtI]§, A° 

^■tz Ab-^-t br©^iot,Jto 
rus. DOse©pggT-"-r b^ k 



f«©C N (Sb»[c"¥"^otf§t, 

■E■ntt;^-K^6©^e»s^<J:L^5 
3tC7s§ pga©cfi?g»^if3 

lit, "r / Kr©A7.^gS"r§'^g 



C -E■c:^6T / \L^<C5tL , \e'JHS 
#*§*tti!£o M74 b^7 K lj -;£ jg 

wrs*..*^ ST'Vb^su-s 

€, "¥'TEii7]orn< : fc©7co 

tS6©^3s€IXSC1*d; x "¥" 
BT'-f b^7 h'J-^JIS-r§©IZ, 
^t<riJ^;t)^:L\t,©o Jstl&Ud; 
5lCbcfc-5tt 



**i©t-v b^ h u-£*rr„ /c 
^"bwtifix vv daijin©_L(z$)§ 

MINATO©Tt-AS (^^A^^ 
:Ll^ S51 /- ^ A ) N I RAS A WA (Z 

*$ift L ft £ ^* £ i ^ SSfco z: ©*| 
tth, dos 1 (zib^, ^fc h t 
^l5ir-i)^«6ft©/zo 
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SB =feDOS2©IHSE«IIZfF«0Rr e 






D0S21 J, ZL~1f-©£?-<frlZ-g-;b 

©/c&tzi&t-t-S)©^ gtiia 

£Hf(£ft5fc(7>fc* 

M* S ffcaift^Sfc***. tz U , 
•^oc^x-f U ^ h U — W-f 7. ^ 

b(z(i7°a >7° h tz* U> h x-f 
b* HJ —***»**£*; , ^ 

lS&A,W < -5 blZ v Mfx£© 

5t>© **,#£#{*, J»f^i& 
^■jT, £#$F&<7>DOS2C:fE«J 

fcfc(7)£* :fetZ*l»£LT&Wc 

*:U'fc(?)t)*5Wfr*i:, tzti 
J*CT 5 fciU £ o * < £$•£ 

lJt^ft_bgM:£?©#^A y fc' 
£ < lz»fc*£,fltoft5t><7)£*Hi 
Z nti, H*f5J86:7 W ;u (&3S 

WCOM* £ *BAT*<7> fc ©) £, 








• q v > K 7 -< >A> ib 'SET* t mt¥J*> 



s^i 



■ ti^t^^Li'U 



*\ S fc £'© J: ? tz^-f 5 *r tz 

8&Sft5o (5A N © K 7^ 7**\ (5 
A^tV U? h 'J-(Z7°Q^A 
A^ofcfcLTfc, D0S212 VVJ ^ 
4 s 7°P ^A (i£0 b 4 l> «fc ~A," 
fclVsfc* 7 7-^fc^-y-te— :x£- 

— fS^4v^(7)i^>i(i, Mil 
&£<7>ili * F * -f 7> b m%. L X 

l*< ^Tt)(7) ^S UD0S2©%£- 
(i x RAMr'-fX^'b^TZfcfc* 

te fcfctt. femm&nm^-fa 



SE1 A>SET xxx 



ttA*Lfc±I£iZf3\ ^©B%£r 

i&mznzi^mmmw, ?* 



J»S£&I3\ DOS2(Z&or 



\TjrM-r&M*Jt*vi^ww , *\*>M0\MWjrjr0'jHr&jrM&'W&&jr&jr&&*w^*-*jr^ww^ 



ECHO 



•TIME 



Z£lZ|Hj:g©Z]V>K ; &359s A 



(H]€CD tt TIME"PV>Klzd; 



DATE 



PROMPT 



KIZ, *Ly>Kx-fb^hU-^ 



•PATH 



SIZ, -€-CD7D^5ACD^JS3£gi 

*SUi, *^>KK^i'7©* 
<n^n©r\ Dose^i^^iz 

lis -t?v>ttVX^-UtL\o 

•SHELL 

*£&Xn^AWBE=]Y:y 
K)«HfrL-fc«i:7s1JaO»L-fc 
w COMMANDE.COM"^l%^ 

©JSL\RAM7 r -fX^lzz7 7 -rj|/ 

DOSE©®s^s<-rSo 



HS©"D ATE" PV> KZ^S^ 
nSBfit«. ^^B©IIIlz^5^\ 
B3^©IIIlzT§A^raOS^.5 

mrnmto «5tBtt«©^^>ns, 

«^iJd:UrB^^©llilz^^trn 

•HELP 

zmmmsu aist^jrcd^xt- 

A?!t ^^HS^"<HELP>". 
B^liliStf "<KHELP>"i L\ 
^xVb^K'J-lz^So 

•TEMP 

DOSE©^7.^Atf^ffl-rs 
5-f :W-< b^KU-lz^S^ 
©SL>RAM7*-rX^(HK-5-r 

•REDIR 

Dos2vmmtmtzmm(Di> 

si*"on"c?x gsizfgorus 
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fe**it^ -fttjaiu-fctb 

f^n 'J -£#5 £ # (i/O. 

£fx5rf$~ ££!:!& LT, Ulr 
fc L *X# l x o d *l4* b / \°* <7)f &£ 

'jZ^lz fc & coti s HIt^TbI? 7 -f 
7 -f 7'/c (to *TXT*^ *DOC* £ L * 

< #ft {£ U 1 fc -P<7) 7°P ^*5 a & 



-f U* h '/— *> F7<7'^gn 

^i^f'irfri^ns £ JIM 4 < 

L^-ri^-5(c, f-fU^ h 'J — 
£fF3 oTIt £\ D0S2T1S±-fcJ] 
#<7)fcf# 

& Hir!i#A < -r^"-<s<^o 
^dPib-r, ai^!iB[OT^t(ztt v 

SET PATH=H:¥;A:¥;A:¥T00L 

SET 

PATH=H:¥;A:¥;A:¥T00L 
i:S^?tLS/NXfc* 
IW+T, *H:¥*(iRAMT f -f X 



Ttf-Oh 



HELPfcWMUfcU 



D0S2£f£orur, iqjtu 

^-miS'LMVufcol:)-?" &££ 

HELP 37>K« 
£A7D HS±lc, JBHiUTS&'V 
Jb777-f^7b^^tm§0fc" o 
=&53Aa B^H^Xt^A^o 

^(O^0,¥7CCDZI>tfa-^- 

?£, vV A:¥T00L"(i^T^lHi7r 
'f;W { Aotf'-f U? h v— £1: 

L fej&* b Efcfc ^<7) K v -f 7*4 S U 

fVu^MJ-iz 77-f;^ 



wai El [«M] I B :i '--I 1111 



{KSiSfckJJHRf**" f«*»» 






7*7 T-ril-i'llfnTl'Smf:, 
tU5^^)IS,7 7 ^U*CDV>> + 

D£ : fc©#353cfc&~, £U5© 

€-5i>v5Wcf 



DOS2C7) -> 7. X A 7 7"f MZ th 
5*C0MMAND2.C0M*'S. D0S2 



^:B* 



© l^I^i^dK 



^X"77>f7^ 
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ivl t £, D0S2© v77^AC{eX. 
%>Z£teX'£i£\.\ 

/Ltf7°p > -f h ©gt^j: if) £■$] 
'J8t-tt3J:^z&-oTu£o *L 

T, ^©7°P7 7At^t£**x. 
tz t # H ( Js # (7) Pit© fc «> tz 
*C0MMAND2.C0M"(i@ «b<7)-9-# 

(Z, £*© K 7 -f "7© £*©T-*-l" U 7 
h 'J-lZ&V v C0MMAND2.C0M" 
fci*c*i&t;A x £*S£1'5fc«>©fe 
© D 1Brfc^SftTv.^«c^*&i:: 
(J, (iUaOlzs^xAfc&l&Lfc 
r ,: 7<"7*(7X ;u-hx-YU-7 h 'J 

fcfcfU /v— K^-f^^itt-s 

T^fci^Bg^ *>*T-A£;gI!)L 

t-v 7 7 £91% ? nx i ^ & «b, 

* «b A x i; «!>*C0MMAND2.C0M" 
£nt:°— LT&#, ~>x JUT-RAM 
xV 7. 7 £*g£-f 5 <ntf—mtfi 
Z Wl ^ 7 j"f JK7)Sc*i&*. fe ft 

RAMT-'-r 7 7 ©lx£l;£6pi-T\ 

RAMDISK n 

t tt%iM;mf* * n " iz &i££ l 

fcURAM^V 7 7©^*^ *P 

RAMDISK 4056 
£Tft(£V.Nl\, &*>•*> A,, 4056+ 

fc -3 £ fcifii^S^ D0S2*r'£iJ) 
etlz5tf*LT<ti-5. &fcu 

RAMDISK 
£fc*(fA2rr5C£T\ Hf^czsi 

C^ LTf^ibn^RAMx-r 7 








» 'KMODE 3\ "MODE 



-J Bt©1fifl8?S€g!!TS. 



UH WE JO . H&fflfre-FEIIKU WTS. 



• C^b 12 'KMODE 0*, "MODE 40*<7)S 

7te:,D0S2©±t£-H K7-fyiZfJ 
l)MXt>tl% o Ztlli.D0SZt) <s §& 
TZs Sf(7)K7^7^: 

st, ai£g3Bc©*>xjufci£% 

SET SHELL = H:C0MMAND2. COM 
*SHELL=H:*fc*W-T-t)t^C>«t o 
**W*T W ^ 7'T- KA.tfteb, 

mmit tt^ftoot^ 

t*ta\ 

**&£[$«£ *©Sef"5¥7«& 

(z x SM1~£fca>T*«£i\, ifcu 

(Z||ff£ft£, ''AUTOEXEC.BAT" 

•%mr>x=E>T*To £>£©«. 



^A>VOL A:[#!a-A«] 



"cawco s^zo'vol"^ y-f 

VER A>VER 

MftW^XT- k(D!K—V 3 > 



^gS"r-s©iz^u^o 



i^izisfo]©Pe§st 1 ^n : fe©©s t» 
umx-v 3 >^ >7 yzntc t* 



RAMDISK A>RAMDISK /4056 



^**«s^ ^^-tspv>Ko 

$?Ji£}B:£U&U£, ^S©^fi 



RAMx-r7.7©z7 7-f;u^7n 

^C>cfc5IZUcfc5 



KMODE 

HH©^-K^^M"T§Z]Y> 

Ko o~3*^n-enBAsic© 

"CALL KANJID~3"©il® 

MODE A>MODE40 



A> KMODE 3 

K(zM"r©lzlS, »¥©A^0C 

"off" €}i^-rniiLMA »* 



HS©«73|ql( Ht)©^:^^^ 
iSS-T5z]V>Ko BASICif5| 
HGCs 1 ~B0^r©fiE3K©»li« 



Tfe" 1 "tAMzL7St^5lz S 

ebi* ge&, ^^rwift* 

SA^o *40*A x *80*©<if6&^« 



BUF R8 A>BUFFERS 10 



A"-y77-©ss^is^-r§p^> 



^©^^ll/c^o^o 



7K-f^h 



aSCDWXttUNDEL 



^n^oizDosiz'Hnr<s 
ts 7p-<ju^jgs-r§©iz i z'^ 

JbK*- K (" * "©3 to itlll©^ 
TS r, OLOL\7p-fJU^ffl 

f^-rsroiz. 

DEL"'. DOC" 

7K£©?7-fJUJ&flra~"£:D4A; 
7=fes DOSeftbC!S/i>oiJI» 




ufcii^o©77-i';uciiaor, 
^©"undel"zi w Kras 

©p/fJf^tM^r^cUct o 
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l\tzZ<td5Zhjtztt£te"<blWmmbfrtel\(Dfi\V 



DIRfc £*0) 3 v > K (7)H^t^H 
?tl5 £ZlWD0S2T'l& *'J 

OZ^T', B®<7)A N *3U(Z73"r 

^frK, imiz^jnf s H®iz 
S7^-r;uz##^snfc»Jv 7° 

U>?-(zEp:£<*tifc«J-f5oT 

&{Z(J, UOfe^-?TU&D0S(7) 
3 V > K C7)&*> tZ s "J ?*-f U ? •> 

a><7)lS-§-(*>*i:^oT^o)^ 



■■:-.*« 










IZ, H^H^^^l^r 

-OU£*$\ ttiTJl-fc^T-vt-f^ 

(i'7 a U > ? -& b *PRN" £ i> o tz 
fc<7) (i*sz fe 3 > y— ;u (*— # 

-K)^»t5-r*coN"^ ^ifco 

*aux" nfrAztfti £\ u **-r u 

<7 •> a > T1£ =5 (7) li % *PRN* fcf ( i 
'J ?V ^ya> Sr^T 515 

-§-tz(2 v *<"i: vv >"^*>>"c7)3 
mW&Zo ztih<n*px\ —m 

(nii[z s yg%.t%zix\ m 

tztii;lDf5'\X<7)fc<7)£\ 7?< 

DIR > FILE.DOC 

TYPE FILE.DOC 
fc.LT* 7 7-OU7)4':S' ; S-:S'<7° 
$-t*-T*5£. iFiitz-r-f U^ h 

fcfc* 7WJU£<7)£\bUlZx 
DIR > PRN 

(zEp^$n^> &-?, *>*>?> a,-/ 

■&/T3 1<7) U ?'-f L'^ya >R 

-§■« * > > "o S*tttz tt * > * £ H 



_» 

< 



7p-r;utf^ofc^sizij v -eco^ig^iSorMSf-rSo 

*-7K-\<frB(DAtl(Dfrt)9lz, 77-fJU©F*3g£ 



-£\ ^<7)&^(Z3V>K(7)^Tiiig 
>K)LTl^T<tl3 

(^-— 7\*— 5< HTUT^"'7 
-zl— tf— ^(?^)LTLI-)„f: 

-i^X'hs DOS(iwL^0LT# 
#ttt"^bv >iSLct^o 

■^fc-pj&^^^^ffi^-rswtz^ 

-^— K fr h 3t^^ 3 "7 > K ^r A 
*-rs^*3U(z % 7 7"OU*TbA 

7° P ^" 7 A <7) TASHIZAN.COM* 

*A,K<nKWZ$) %T&tz*- 
Ji—FfrhtTotSb, 

A>TASHIZAN 

?1 1 ^A73 

?2 2?rA7: 

?3 3£ At: 

?* *(^71fi-§-)?rA7J 



* * * lt#ISH( J 6 T-T * * * 

Z tl^ U ^'-T U 7 v a > «r^^> 
T^i.lZ^ N S-rJELSLfct^ 
^£M"«fc 7 t -f -lU^ffl-sf^o 

A > TYPE KAZU 
1 
2 
3 
* 
*C:nfc TASHIZAN.C0M"(Z 

'jy-ru^va>r-§>i:s 

A>TASHIZAN < KAZU 
???? 

* * * ItlKS^tt 6Tt*«* 

v a >tt, *-*- K^bfRj^^r 
ATJT^^-T 7(7)3 ^> K(ZL^ 

##U'(Z *<"^*>"^-|5)^ 

tzfJ^za:fcT'#?» ^<7)%& 

ij7»' <A7j >dJ7: 
©J; -5 izffiji:r%*3(tfc'o utr> 

(D7 7 -< )\s *%%&■'-&&. t(T)^$s 
^PXLT^<0(7)7 7^;UtZ*# 

S3V>K^^T?iJffl-rS 
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<7>fl*T*&ll£ "7 7 "f /U*?» T-V \'< * 

tzitr ©# v h -T'mL tztA 

3, t£A,T<M3<—mmfrt£ 

*< 6 ¥ * - *n r t mTF $ ni ) 
-cE-tjo s ^t to i* u *> case L fc 

=iv>K©tH7J£\ %<r}£t#.<n 

37> K 1 ! 37> K2 
<75«t-5C#tt(fl^V 

-oX^^Z£lt£l^U, 
37> K 1 > %PIPE000.$$$ 
37>F2 < %PIPE000.$$$ 
DEL%PIPE000.$$$ 




PP^CHKDSK^l'Ki 



*%PIPExxx.$$$*£l^©C2x — 
BflttCfF'b ft& t- >* 7 'J - 7 7 
■f ^o ft*!m*> 5 £ g UHttHlUlJ 
P&£ft£>o xxx<7)gKHHS x TT'tZ 

iz, D0S2A<s#^(z 3 ^r?©»£ 
\tl%t>Vtz 

*TEMP"oT^-?*P&-o/cT'L J; 

r-S(7)*\ :©f>-f>7'J-7 7 

Y 'J-tz^tz^tzo 



©SrB(7^35f€»IIo <qj 

IsZ \.\&7D -^ If— y-f 7.^tts 
I7o351?9&^i£o *®C/K=l 

fc-ot/feew-Cx &-D<z\i\z>mtz 
fctscsor, "3©«14S 

U \"£7Dy\d— OftoWC 

fcnfiB^&©/c 
tf"CHKDSK"(^i^^x-r 

7.^7)0 ^©£©££9, ^n^e 
-<DWzm.Wz%mtt.iz.i\fr&m 
k, ^iur<n§^v>K7co 

XtO^T--^ J f7n^'^A^Ao 



"CHKDSK"^§cfc5lzUcfc5o 
"AUTOEXEC. BAT'i^lz 

S/j:^lz^©ziV>Ktt, 5>7, 
^AT=y7.^©"UTILS"iU5 
T-Vb^K'J-tAoru-So P 

iisyx -vtz-vr^/jxsnsfflr-, 









^§^@ffl 


(3>|/^r^-th p*\ 


W 
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*ftft*EtttfD*lvM\ r *sL\1h>Z 






«W«Ucfc3cfc 

p^%37> K&A2j1"S<7)(2«> 
**,#£#. *BAT"£u-5t!£3S 

7 7 •< ^ (ifiSR^^^BAr wrr 



fF3tz(^ E*-3 Lf:b^l^ — 
#fjjip/j:©(j, t^X hxr-f ? 
-£f£0 7j5£ o *D0S2 TOOLS'lI 
A^Tl^*KID' , ^*AKID''A%ft 

»£*BAT*lI U *-Al"-S>^ 
T7j>£fc&-S Bu[Hc7)#ST1i, 
BASIC© U V— ^X^- 7 7" -r ;kz 

fF37J>£{J&5 *>«fc^>£3£5lfcf 
tt£s *COPY C0N"^^IJffl-r§7J 
jfc 37> K9< >* N »bx 
COPY CON 7j"f;u£.BAT 

£A7j-f5cr, ^-yjwfjSOT 

£^TAJj^©«l^d:3 * 



•MENU. BAT©|^g 



^^tl^i 



SET ECHO OFF 
MODE 80 
KMODE 3 
ECHO 



ECHO MSXv#5?y 10^^ 

ECHO 

ECHO "DO S 2 O-t^XtftofrZftl 

ECHO 

ECHO 



ECHO 1. ?4 V>7 h 'J-*tS 

ECHO 2 . BASIC 

ECHO 



>l.BAT©|*Tg 
DIR /W 



►2. BATOftg 
BASIC 



®iz^^-r§t®cD=iwKo fc 

ft!*ECHQ*££HA2J [stems 



ECHO 



ECHO [2^*1] 



=S©»*S»A^50"C» SHU 
/ufc'efcteo DOSfflA^J ! 



+-£ffur<fc"£U'£u5* 



vlz-iWfctiflSnSo AW5HZQ 



REM 



REM [**W] 



•y^7 7-0b£^3£$&£lci£ 



fe3o BASIC©'J7-^^if5l 
X?9"J©S*Bx zJYVKfrilq) 



«m(Z^T©5felIT'[CTRQ+- ^i 

>7Vu£*S^LT^< £A£% 

D0S1 T*IS N / \* -y ^MII^ 3 G •* -y 
-tz— v £3f7F L J: -5 t & -o tz b, 
^^>© 7 7 -r JU©F*]|?£ * -f 7°T 
SLH'^fc. T't)D0S2(Z(i, 
"ECHO* fcl^3?> Ktf&So - 



Ti>o 77-OU£ti*MENU.BAT\ 
*1.BAT\ *2.BbT"(D£$tZo ffl 

MENU 

x\ yia-e***i *^*2" 
©+-^fT^ fc*>\ *>^^ 

^z]^> KA^T^tl-SC^'il^ 

AH ** x /z^(z, -fn^"n© 

oZ-)iliT'Li 111 U¥KMT1B[ 




» "COPY CON" 5-ft-o T7 t -f JU^A^Io 



MSX7«>> 10fl* 






, ' 



»"MENU.BAT"5-^ftT'5>i: (i-"b 
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±B* J 

(^) \l\^^t\- 




■ft 1 * a 








frttfc'o "AUTOEXEC. BAT* tlg§| 

T N *FORMAT"a^> K^y-a 

C ©7J5tT'te, 3 "7 > K =7 -f >fr 
*>&3:fcAft5fcfltT\ lOT'fe 



D0S2©/ \' *j ^&£IT1 J, / \' -y * 

^©n v> K^(^^C Li^iJ. 
£f(? £\ ' < 7 f 1 7 7"T J U© * BAT" 



IWFIXDISKrDOSl 
<Z)7VX£*DOS2fflK: 



DOS^BASIC %ms1rZ> 



#BAS. BAT©|*H£ 

ECHO IjaT ON ERROR GOTO 50 
ECHO 20 %1 X2 %3 %4 %5 %6 %7 
ECHO 30 KILL"BAS.$$$" » BAS. 
ECHO 40 A$=INPUT$(1) » BAS. $ 
ECHO 50 _SYSTEM » BAS. $$$ 
BASIC BAS.$$$ 



X9' > BAS. 



•f^CDfCBT-Mz^-d: 
IS; PC-9801 r77r-v-y K Ufc 

?^7^(eDD, g-tz£*-)£ 
Msx©ig»ffl?y 7^tf£&5 

ofc©r, Z©BI5#©fif«jWEl/ 

r, ^^^^^^^©7-h-tz 
r<ns©*\ 3©tixdisk"o 



A'fixdlsk a:/s 



* 7'- I- -fe ^ ? - £MSfT % £ # £ 
Z\5?±&DOS2ffl©7-V 7s^7^ 

K*k DOS2ffl©T^7^rU 

n. TiXDiSK"ura<t, ffi 
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J \* -y f 1 7 7"f ;KZ><£<7\ *%1 " £ 1 \ 
-? <7)#fg 1 . /*5 X— ?— , *%2"# 

fg2A^-?- t^oM.^0 

* L T *%0" ( J, n v > K<7)£ffi i 

b tf l*£ ® "5 <75T\ H0J£&Cf J: 

ECHO %0 
ECHO %1 
ECHO %2 
%-*TEST.BAT*i: LTgfiU 3 

TEST A B 

TEST 

A 

B 

■IMzS-TLtz'^j* — ?—t)\ t 
(T)$ S ss ECHO"[Z;S?tL,il®CS 

L^UZ^iT^ftWiS -5 fro 

X\ %x.Xfrtz<7)i}\ BASICS 37 
> K £ D0S2fr b HfrS it ^T 
fc<7) fy^— v<7)*BAS.BAT"£^ 



BAS BASIC<7)=1V>K 

BAS FORI = 1TO10:?"A";:NEXT 
tAtlTZt, BASICT**A*£10 
imTFLit&UX'^-XtiW^lZ 
&*J, 1*Ifr*—*WTZtHZ£r> 
TD0S2lzMoT < So BASICCOlf 

Z. <7)y \* -y x#!S(7>S&fE£|lfiifUZ 
i^ni, *BAS.$$$*£l^"7 
7"OU£TBASIC<7)-/n?7A£ 

#$u n^-r-So *^wt3w % 

*BAS.$$$*(JWT<7>J: -5 fcyp 

^7A£LTfM£ftS 
10 ON ERROR GOTO 50 

20 a7>K7^>l^fc 
7°n^A' 

30 KILL"BAS.$$$" 

40 A$=iNPUT$(1) 

50 _SYSTEM 

10?t<7)*ON ERROR" IS, 3 "7 > 
K5K>frbA7JLfcBASIC:/a 
? 7 AC17 -£<!££ L tzi%£, 

20fr<7)5H£(7> * '" tS, =1 v > K 5 -f 
xzfa fc#fr-f (zH^t L fc £ # tz, 



•ABCDE. BAT©fa£ 

ECHO FGHI J. BAT^Wft L £ 1". 

C0MMAND2 FGHI J 

ECHO FGHIJ.BAT£DWH3L2L/z. 



•FGHIJ. BAT£>[*f^ 

ECHO FGHIJ. BAT£HWet\ 
PAUSE *fff {SAH^ih^? .Sittfttf- 
ECHO FGHIJ.BAT£|*TL£ L/z. 
EXIT 



dosi t*& > < -y f-smcnm* x 

tzWtirtz^ST^TtK 5cO 
/ n'-v ^MiltzMS z: £ #t-# £*> 
ofzo tzsfrDOS2Tis, -s-ftfr 

~5I&lZter>X^%o fcfcU *>* 

o £»ftz fc £ Lfc < *>*W 



1z £*.(,& h%j<'v3-%m.(n^ 

frb, ^-^(T) TGHIJ.BAT" £ iv) 

stvTjemzwmTmz. 

FGHIJ 
£l%%ltztzliXlZ?S Ttizm 
ft#<fc5o JELUS, 

COMMAND2 FGHIJ 

MZ#J£&tfTfc^fc<7)T\ HPH 
(zA^LTKLT^^^o 



T'J^hA^tlfc'o BASICS 7°P ^7 A£n— KT£ ttl^fcftttffeo T, s*y?-X'i&A,X'fr& i a 



DOS2ZT7>Ktfi** 







=1V>K£ til fg » 5! 


C li % 


DIR 




DIR/H/W/PS5-C?* ^y-f^/y-f b^h'J-S 




MD 


t5. MKDIRi: LTfoaI 


MD K^-f^S x-f b^S'J-« 




CD 




CD K^-f^=S T4W7WJ-& 




RD 


BTZ, RMDIRt LTfeDj,, 


RD /H /PK5K:*S x-f b^KU^S 




RNDIR 




RNDIR K5-T^€ f^b^KU-S ffr-fb^S'J-S 


%fc'(7T\ 4 3 W7 7-f>KiS;-ffc4-Lo 
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^tjwhw 



ZIVVK^S 


mm m it n % 


COPY 


7 T -f JU i tz IS 5»'W -7.fr h 

f-?frat'-f5„ 


COPY S5-f7*77-r;i/€ K5-T7S 77-fJI/€ 


l§)— K 7-1-7, Isj — T-'-r u? h u— (-. HU7 


CONCAT 




CONCAT S7-f7« 77-f;i/« K5f*7« 77<JI/S 


D0S1T(JC0PYHV> KTItfflLTUfc. 


MOVE 


■omv'-f \s9 f- ')-iz®w> 


MOVE /H /P 77-ObS fcfflfcT-f b*hU-« 




DEL 


a "ERASED LTfcoIo 


DEL /H /P K^-f7€ x-f l/$SU-/77-0l/8 


7 3"f JU*OT|&^lC7-fJUK*- FfeS^.5ft\ 


REN 


ZZ-^W, "RENAME* feoT 


REN /H /P K^-f^'S 77-r*;i/S «p7-f ;US 


7-f;UK*-K<75fiEfflfo3Jtg„ tztzL. HC7 
t- -f ;i>€ *<#;&-*- a t STMT- # 4' l\, 


TYPE 


7 T-r ii'£tz&7- , s<'{ xfrh 


TYPE /H IP IB K5<7« ?74M¥M7& 





^-r^iifEaS 



ZIVVKS 



FORMAT 



7*4 2.9 &7 *—■?■■; I- 
•(b) f 5 o 1DD 1 2DDtf£ $ 



FORMAT K^f 7« 






RAMDISK 



RAMx-f 7.9(7)&m.$:. 
tzlis&'M'fZiv 



RAMDISK 



/D 



~4064OTi5H T-JgS T # 3 „ fc tz L §= 



VERIFY 






VERIFY ON/OFF 






VOL 



7*-f ?.9<7)# 'J a. — /»«%■! 



VOL K^f:*S tKUil-ZvS 






*l> 



3V>K€ 



SET 



CllTJv, SfclJ 



fcCRStS, 



SET 



1zA°b— $— 



"SET* fc£ (tfj T£, 

*15 t/\°U — ? — C(i* = *$-(S-7o 



PATH 






PATH +/- N^-f^S A3. 



^7(Jf-f U;7 h 'J-£&* :*T-E«-3TJ&5£ 
"f3„ * + /-*Tv^<7)igiq^Bij^t,Qitg 



•ftSZR^F 



=iV>K€ 



DISKCOPY 






DISKCOPY K^f7'« K^1"?« IX 






CHKDSK 






CHKDSK K^-T^'S /F 






FIXDISK 



xV 7.^^^^4-00327=)-- 
V7 l-OTiOTlzsESftSo 



FIXDISK K^-O'S /S 



D0S1T-7 * — "7 •> h LtzT-f 7.9(7) 7'— h 4* 
9?—t>\ D0S27*-v.y Mcfc£„ 



HELP 



D0S2n V> KO^^/y 'y-b 



HELP =1V>K=S 



D0S2'ibT-ii(7)7)->-7-l'>^JU7 , ' ll -7-a.T^U 



KMODE 






KMODE &fil/OFF /S S5-f ?S 



[alA^-ifOTHE^- K T- •> 7 x Assets,, 



UNDEL 



Ear*. 



UNDEL 77"f JUS 



7 7-f jL-^^^ag-r-st, **. •*j&«jnje3-ft 

%oD0S27 *— -7 -y h 0)t-(7,9 tCOT^ £&„ 



XCOPY 



7 7-f;ufcj:o f T'-f u^ h ') 



XCOPY 77^Jb/f-n/^SU-« 77-fib/f^ by-SU-S 






XDIR 



7T-T;U5r^JKo 



XDIR K^-f^S x-rb^SU^S /H 
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MM 



z j— zJ —- 



HIIVE 







1 






m % _^^ 




***\ 


— ' 


1 ^ — - 


_r 


V 




^P 


r. ^~— m^ 


Uhiitii.'i-i 1 




9 

■ j 


J 


-V*J 


A 


















\ 



llllustrated by Hitoshi Suenaga (fi&ffl-y-n- : ?'7 7t')/W, SCREEN7). t8#v-f ^ a ** fc*> 



-jf, L /; /fit Ttt KKO>%m fc & i^Jl <7>liCGo Lrfr I 
T** 8fe-T'Cn^:ltC7)M^^ttitC(i N *tty*-f 






512X212K^K0*>/<Z(C8fe"Cffi^tl«5^<'J>y0ty:^ 





HT nil 
H^^WL 'III 

M 111 
■■It 




j3 gffl 


EfB 



*r-t7 5 j ) f;(j* < F-14$-«< UT-fi»Lfct 
d h T-fo C COF-14C7) $ fj £#1, ^m<7)!Sv U £tB"f<7) 
fc^lJ'J^-f 'J^fcftl.^ LfcOfc*Bc)j 
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51 L T I » 5 CGffcS tf, #' ^° 
V =1 >|£& JLT Wo # 'J £>&' < 

^oTLIUJL/:„ Ztil£9-< 

l # < x fe ^ i v(j £5£gmf&\< * 

# * A, fc ^*> > "CCG £*i # *&«> 
£:£*&££ JR.**?. £, x-ftte 

* *f* -r 'J >^fcHTfc t^i; ^ 

-f 'J >?'£;< -f >i:<^ fcffift* 
£#*.TWc<7)T\ SCREEN7T-16 

^£/L3£C*>£&x.T8feHL 
/•cC^T'-To £ <(z/N°-rP-y h* 

<»&iznmzm?tz#>s +iwew 



fc v # fcl ^Tt^, &(£ CGC #3 1 > 
X ? < \) >4WtiMtZ* t [*m-3 

Tl^t^ L**U CG^rffiZo 

Alia; -^TH 'J >:mW£ fe 
Hx.T(5 L l vt-^ - *y ? ^c7)T'T 
frtffc «b y— A<7) * * 7 ? ? — ^ 

wm v -y x tz t TLimtzfrzm 
ti&pmti&ts. h teiwiZ'smtz" 

tit** U >$T*6*!W-C& < , 
lA^ntvj-ro <?T, £390: £•) 

^ -?3R^ L fc SCREEN 8 , &<7)256 

CGcort#(i v :^^?til., 

V-f ? P + -*» fc*>(7Xr— Ac7)±A 

&t£(Dtz*- r> ! ! OfcficOfc) 



9>/1\V>h7KA^X 


+ 






(1) 




(2) 




■■■ 


-1 




7-f 'J ^ICfcltSSMfcj* 


£-*>-£* £3^ + 1:2 K-y b 


!i'J<e?vsz^ £<fcli'3 £ 5 o 


oxs><*tst L i t -bltT 


a** o i#/^\ ^t-^< K 


1". -^ ^o. ( J: , 6K.*^BEy'J^' 


•y h ^>«.i'j'iii-iisi«i- s i 


( 1 )E(2)T< ^ito-CLi 


H II /c£xli'( 1 )THMLi 


ofcfeJ6»cfc»t L i ia|L 


ffo/:t:Lit„ *»=, (2) 


i^-Ct4a S^wCGt: 


t*( 1 )e>JflLfe*)8p*>*p#-*>»l 


;ft*''4e5 £ £ , t, j; o £ &A- 


&&tt-ztztLl±-t 


L i-«jl^iiifiJiua^^* - 


CI), (2)£ t#-*-CJL5 


sctiit, 7 4 'J >?"* 


^^C^C t $.H\tf>"Ci"j&*„ 


31li^ T ^ 7 *»W5rHH4^* 


:0if:O(9^7- >$&£ 


hi ZZZILtLX ( ^3t». 




<7)PJJE( ? ) ^^o^tiWj: A/c *> $■ 
><7)A(iW#LTl^fe«boTtvt^ 



^^0 






^^^~ ■ 


^^r 


- ^^L 


_^^i^H 


#4S- 




H .^H 




Hi? A 








SI 1 


^^^ -^ ^"^ 






* ! IE 








mm s 








^ c 








» r 








ft E 








CO E 








ffi N 








« 5 


^H 


M 




*5 


jS^. 


k. / / iiC 




o 




Uwfll 





■ COT 3-^— T-liCGfpp° D ^|K*4 1 T-ro ** 
EfllzMSXSrfigo /c^ n D D T-*)nif -^ -V > JUS ran 

^mcojfiHiDctiofl 8 ax-To 

■ *T5fe 

T107-24 *3:ffl?>SEmwiJj6-ii-i 
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ZZ.&, tyntf®.zwn%zt 

^ < t u—?-tm t ^ tisciz± 

mtsfttrnz. i&ku&mizM 



<bii3$:(^*qib-f)fc#fc$T<7) 

-^ *i^§fft?.f^7H 

#;LT^fco ^Sci^T)^*^ 
fflii^T^l^fc*^ -5 * N $> -7 

MHtzhlZ£^l £jmx<n± 

iW.Xh^Z££, ZGtfffitffiL 

yyt tm r -m rtTS<7)«i§ * #gy 

%>(7)fz'irb^ ?nbi±ft(7)ti:^Z 
£tzho 

toh^i^ 2$m 



<Wt& ! 

fs^kpy^mt^izt^ frt> 

i^i iz bW*mzfenz'&Jbti:frr> 

tz N0.1 0292(7) ICEMANf&l 0^(7)^ 
{Z*l^fc«)lZfe, 4-m<7WDtJ 
9^26HlZ-rS-t(ZLfc 

«ft>«K ^•§-T'(7)#f^m(7)^ 
RtiT-#-r, 123-5§-T'<7)#gil£fr 

s<7)fc*o u^ *ji^^*tn-rs 
(7)? -3Xci:C4*Slt^ iifl 
■§-(i-(7) r lg±>7-*-A ^M¥^ 
H jti tifafrt ti%<nt± a n^#t- 

■&iib*ystz? 

i^ *T*i:ii^fc^(zL «fc i £& 
iX^Z>(T)X\ ^LMzLX^X 



9^265! 
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=i>t:°3.— J — ~ a— is-y$m 

Li?, £^£-W^&!i<j(z 






50tz<WGfflK-r:?7Nua":/ 

±fttf$m t l> * 3 (5 £'(7)* # £ 



■7Nb;tf><Z)Jg£ 

i£M^<7)JU-X£4A,<>:i^ 

±tbmxnxi^t izfivm 

flS« * -f v *<M$L g L *^fc $ # 
l ^ Z h XT 3 (7)£&A<(5 j?r<7) 



#«* § ii* £ v > -tz T'f^S (7) 

®#coii^ £ ws^sism^ tut" 

(7)(Z(it)rjTZl^<7)sSSST*r o v 
v £ til?" OTtftf-r > h T L J: 9 fco 

c7)tB5i^s fc/c < H(i*;u#>£ 
cz^tz > >-t tz j x-ii^b L x l s 






^-t+Tfi-^Cz-tSCtT'-fo oj 

U 7C<7)^ (fg^ft) £ * Jl/ # > (J 

f^rSM^^ •> > -t £ if] i: x-fo 



1 fg^CDtt,ffl& 



■ b***-©*£ 





\Lv1TVj 





KXWft 



zHJU 



■5 -y Ji # 

C « " * 
4' 51 ^ *' 

T * «■ I 
l^ !C f X- 

°^^ % 



4 ti- L # 
? (Hi T A< 

5LH 
° s h > 

1 i TV 

m> i 
fi * y 

■§• -f (7) 
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■FMBexT*^- 



i Musio Workshop Vol.10 
FM Ufiice EDITOR Uerl.l 

: Ba KlTfiGfini i?9KC) : 



■J* h(i86^<— vt-Jff!6LT& 
*J £fo -*l£fiM.tfMuSICA<7)'J 
*' K7y£fe£BASICT'fcl5M.* J: 
•5 left l J £ T U BASICS DAT A£ 

jRt *,>•) aftftfti^ &£>*** ( J 

X — ? — o l£bft<Tfct.^fc(7) 
ftA/TtltirfflJSLTfcxS £ L/c 
^.^-7.+— T"FM^jl(7)/\°7 
X— ?— **+■*, [N]+-T-*-"L 

* TofEscte-frft-f £ playact, 

MMLfcAfrt^— KCft'J* 'J 
^->+-T^* < t±liro BASIC 
T*f£^ DATA^it(7)^^T-'-^ £ 
iSfcg te fSELECT | * - fr ft I 

/\°7X — * — ^(tWx Y=1V>K 
fc£r>Tg£:LT<£xH\, 



LUM tr>:?J!/ 



f *»■» : . 

! r"(W : . 

■»Xt<^ ! - 

! VM-a : - 

lF§K«, I 



HATA=CSELECrj,TR»CTBBJ 






JUI^JUlJfg^TSJiift&T'l C 

•7>/ctt?rfF-5T^SL«fc^o "7^ 

&«£>*#>£ To ^LT. ^P 
<7)JS x? £ h - ? /U U ^JUTtSS L 

>%&X'<nfegtft><ntzi) £"ttA, 



+t l J7-; I EyaU-^"-(Z)X>A:p-7 




T9-v?t y y-^ofitis, $< 

T5fc«>Ci^^15C-r% X-1--7- 



^yal^-^-OSffl 




MX 



-V7.T-1 > 5 

h — ?;!/!/<<* 20 






^l^cDT'x cniiLhx7)^l)|Ci^iI 
— C7)1f7x7^-r >^r'Sl^t"o 

<nT?v9ttz.<n$i£izu vx 

9„ ^ y ^ (-^-7 tz^tftzAstz 
A.1tlZx.X< UttX-To xin^r 

^ l ) v fi moygti:<r>X-*> i.i££ 

si^^T'Snn^i < 4 u r rx 



*To S^T^^#-^^J:o^'bx 
Px t*7'7-h?r7JP>lS1"o 

tcn^&wmxz z^mts 

tttiiZZztZJhtiZ; < T bfr£ ^ 

«x mzm\±<nti:^^£Z>t§& 
ti^i^tnxto 

Z 1 LXX£iz<T)tf±.\Zfo%m 

wmxt a *n*i£itzv>7° 
juttcj^ h 1 )bmm.Lx^$. 

To110fr* N< b17(«Ti"C* < DATA^ 

c7)T'x g7>T^ofz^^^^a:# 
ti##{zr-S)^l^^T'Li-9o 



10 "'MWS10MI. BAS", a 

20 '< Music Workshop Vol. 10 > 

30 '< iHlMM ***' > > 

40 '< BY Y. KITAGAMI 1991(C) > 

50 CLEAR 5000 

60 _MUSIC(1. 0. 1. 1. 1. I, 1. 1) 

70 _VOICE (®63. @63. 863, 663, @63. 833) 

80 DEFSTR A-H:DIM AH(15)" 

90 POKE &HFA3C. 60 

100 SOUND 6.0: SOUND 7, 128 

107 " 

108 'fMib t' -i J ft*3 = 

109 ' 

110 FOR 1=4 TO 15 

120 READ A$:A*(I) =VAL ("&H"+AJ) 

130 NEXT 

140' DATA 0, E. 0, 

150 DATA 54E9, 5F99, 0, 

160 DATA 0E61. 0FF0, 0. 

170 .VOICE COPY, (A*. §63) 

180 " 

190 A0="T130V13L16 06 



200 B0="T130V13L16 06 

210 C0="T130V13L16 05 

220 D0="T130V13L16 05 

230 E0="T130V13L16 05 

240 F0="T130V15L16 02 

250 G0="T130V13 

260 H0="T130S1M2200 04 

270 " 

280 A1="R2. R2. R2. R2R16DFG32 

290 A2="L32A>C<A>C<A>C<A>C<A>C<A>C L16D4 

. R8. C8<AR8A-R8GR8FR8D2. R8. R16GFD32 

300 A3 = "A2. R8. >C8<AR8A-R8GR8FR8DF4R1 6GR2 

R16GA>C32< 

310 A4 = ">D2. R8. F8 DF8GR8FR8FR8D4. R16C4. D 

8. &D32< 

320 B1="R32"+A1 :B2="R32"+A2 :B3="R32"+A3: 

B4="R32"+A4 

330 " 

340 CI=">R8. C16R8<B8. >CR8 R8. C16R8<B8. >C 

R8 R8. C16R8<B8. >CR8< A4. B4. 

350 Dl=" R8. A16R8 G8. AR8 R8. A16R8 G8. A 

R8 R8. AI6R8 G8. AR8 F4. G4. 



360 El=" D2. D2. D2. C4. D8. <A-16A16>C16 

370 • 

380 F1=">D8. C8. <A8. A-8. G8. F8. D8. >C8F D8. 

C8. <A8. A-8. G8. F8. D8. >C8A< 

390 ' 

400 Gl ="BC8. SC8. BC8. SC8. BC8. SC8. BC8. SC8 

Bl 6 BC8. SC8. BC8. SC8. BC8. SC8. BC8. SC8 Bl 6 

410 G2 = "BC8. SC8. BC8. SC8. BC8. SC8. BC8. SC8 

B 1 6 BC8. SC8. BC8. SC8CB 16 BC8. SC8. BC8S 1 6S 

C16S16S16 

420 " 

430 HI ="R8. C8. R8. C8. R8. C8. R8. C8. R8. C8. R 

8. C8. R8. C8. R8. C8. 

440 H2="R8. C8. R8. C8. R8. C8. R8. C8. R8. C8. R 

8. C8. R8. C8. R8C1 6C1 6C1 6C1 6 

450 ' 

460 PLAY #2, A0. B0. C0, D0. E0. F0. G0, H0 

470 PLAY #2. Al, B1.C1. D1, El. F1. Gl, HI 

480 PLAY #2. A2. B2. CI. 01. El. F1. G2. H2 

490 PLAY #2. A3. B3, CI. Dl. El. F1. Gl. HI 

500 PLAY #2. A4. B4. CI, Dl. El. F1. G2. H2 

510 GOTO 470 
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U*h.2 



10 '"MWSI0P3. bas". A 

20 SCREEN 0:KEY OFF 

30 _MUSIC: '_VOICE(e63) 

40 CLEAR 5000:DEFSTR A. D. M, R 

50 ON ERROR GOTO 1640 

60 DIM VCX (15) : "VOICE DAT 

70 DIM PL (13) : , PARM. LIMIT 

80 DIM PS (1. 13) :'RARM. SET 

90 X=20:Y=7:VV=256:RV="0000" 

100 FOR 1 = 1 TO 13:READ P : PL (I) =P:NEXT 

110 FOR 1=0 TO 1 : RESTORE 150 

120 FOR J=l TO 13:READ P:PS(I.J)=P 

130 NEXT J, I 

140 DATA 63. 7. 1, 15. 15. 15, 1 5. 1 5. 1 . 3. I. 1. 1 

1 50 DATA 20, 0. 1 . 1.15. 00. 00, I 5. 0, 0. 0. 0, 

160 PRINT: '***INZ HEAD*** 

170 PRINT " + + 

180 PRINT 

190 PRINT 

200 PRINT 

210 PRINT 

220 PRINT 

230 PRINT 

240 PRINT 

250 PRINT 

260 PRINT 

270 PRINT 

280 PRINT 

290 PRINT 

300 PRINT 

310 PRINT 

320 PRINT 

330 PRINT 

340 PRINT 

350 PRINT 

360 PRINT 

370 PRINT 

380 PRINT 

390 PRINT 

, TR= [TAB] 

400 LOCATE 30. 5:PRINT"VOICE TR" 

410 LOCATE 30. 6: PR I NT RV 

420 " 



! Music Workshop 


Vol. 10 


! FM VOICE EDITOR 


Verl. 1 


! By KITAGAMI 


1991 (C) 


! PARM/OP0. OP 1 ! MODU L E ! CAR R I E 


Ih-m*'* i 




|7<-*'A'»J ! 




|iyVo-?* UT 1 




[7**7"* W t> ! 




! 7*,* !• 




! r <»< !• 












!*-m x»-w i 




|#-tV* *»-* ! 




IH-to ! 




It'Ty-i 




\f tiy-'/i'j ! 





MML DATA=":D 

EDIT/MML= [ESC] , DATA= |SELECT] 



430 CX=0 



FOR CY=I TO 13: LOCATE CX*7+17, C 



Y+6:PRINT USING"##" ;PS (CX, CY) :NEXT CY 

440 CX=1:FOR CY=3 TO 13: LOCATE CX*7+17. C 

Y+6:PRINT USING"(t#" :PS (CX, CY) :NEXT CY 

450 CX=0:CY=1: LOCATE CX*7+1 7. CY+6:GOSUB 

1020 

460 ' 

470 '***LOOP HEAD*********************** 



GOSUB 10 
GOSUB 10 



GOSUB 10 
GOSUB 10 



480 A=INPUTJ(1) 

490 '— CSR — 

500 IFA=CHR$(29) THEN CX=0 

20: GOTO 640 

510 IF A=CHRJ(28) THEN CX= 1 

20: GOTO 640 

520 IFA=CHR$(30) THEN CY=CY- 1 

20: GOTO 640 

530 IFA=CHR$(31) THENCY=CY+I 

20: GOTO 640 

540 "— PARM. VAL.— 

550 IFA=CHRJ(32) THEN PM=PM+1 :GOSU 

B 11 00: GOSUB 1020: GOTO 640 

560 IF A="N" OR A="n" THEN PM=PM-l:GOSU 

B 11 00: GOSUB 1020: GOTO 640 

570 IF A=CHR$(9) THEN GOSUB 680 

580 '---PLAY— 

590 IF A=CHR$(13) THEN GOSUB 1170 

600 IF A=CHR$(27) THEN GOSUB 8*20 



610 '—DSP DATA— 

620 IFA=CHR$(24) THEN GOSUB 1 1 70 : G 

OSUB 1500 

630 GOTO 470 

640 '—DSP PARM— 

650 LOCATE X, Y:PRINT USING"##" :PM; : LOCA 

TE X, Y 

660 GOTO 470:'***LOOP END*************** 

* 

670 ' 

680 "***VOICE TR******************* 

690 LOCATE 34-VV/64. 6 :MM= INPUTS (1 ) 

700 IF MM=CHR$ (29) THEN VV=256 

710 IF MM=CHR$ (28) THEN VV=1 

720 IF MM=CHR$(13)THEN GOSUB 1170 

730 IF MM=CHR$(9) THEN LOCATE X. Y : RETURN 

470 
740 IF MM=CHR$ (32) THEN V=V+VV: IF V<-3276 
8! THEN V=32768! 

750 IF MM="N" OR MM="n" THEN V=V-VV:IF V 
>32768! THEN V=-32768! 
760 IF V> 32768! THEN V=-32768! 
770 IF V<-32768! THEN V= 32768! 
780 RV=RIGHT$("0000"+HEX$(V),4) 
790 LOCATE 30, 6: PR I NT RV 
800 GOTO 680: ********************** 
810 " 

820 '***MML DATA SUB*************** 
830 LD=LEN(D) 
840 LOCATE LD+10. 21 
850 MM=INPUT$(D 

860 IF MM=CHR$(24) THEN GOSUB !170:G 
OSUB 1500 

870 IF MM=CHRJ(13) THEN GOSUB 1170 
880 IF MM=CHR$(8) OR MM=CHR$ (29) THEN IF 

LD>0 THEN D=LEFT$ (D. LD-1) :GOTO 990 
890 IF MM=CHR$(27) THEN LOCATE X, Y:RETUR 
N 470 

900 IF MM>="A" AND MM<="G" THEN 980 
910 IF MM>="a" AND MM<="g" THEN 980 
920 IF MM>="0" AND MM<="9" THEN 980 
930 IF MM ="o" OR MM ="0" THEN 980 
940 IF MM =">" OR MM ="<" THEN 980 
950 IF MM = "r" OR MM ="R" OR MM="1" OR 
MM="L" THEN 980 

960 IF MM = " + " OR MM ="-" OR MM="#" OR 
MM="&" THEN 980 
970 GOTO 820 
980 IF 20=LEN(D) THEN 8EEP:G0T0 820 ELSE 

D=D+MM 
990 LOCATE 10. 2I:PRINT SPC (20) : LOCATE 10 
. 21 :PRINT D: 

1000 GOTO 820:'********************* 
1010 ' 

1020 '***LOC. CHK SUB*************** 
1030 IF CY<3 AND CX= 1 THEN CX=0 
1040 IF CY<1 THEN CY=1 

1050 IF CY>13 THEN CY=13 

1060 PM=PS(CX, CY) 

1070 X=CX*7+17:Y=CY+6 

1080 RETURN: '*************«********* 

1090 ' 

1100 '***PARM CHK SUB*************** 

1110 IF PM<1 THEN PM=0 

1120 IF PM>PL (CY) THEN PM=PL (CY) 

1 130 '—tOC DSP SET--- 

1140 PS (CX. CY) =PM 

1150 RETURN: '**********************« 

1160 ' 

1170 "***DATA SET. ****************** 

1180 R=" 



1190 ' OP AM VIB 

E-TYPE KSR MULTI 

1200 R0=RIGHT$(R+BIN$(PS(0, I 1) *1 28+PS (0, 

1 2) *64+PS (0, 3) *32+PS (0, 9) * 1 6+PS (0. 4) ) . 8) 

1210 OP 1 AM VIB 

E-TYPE KSR MULTI 

1220 R1=R!GHTJ(R+BINJ (PS(1. 1 1) *128+PS (1. 

12) *64 + PS(l. 3)*32+PS(1.9)*16+PS(1.4)).8) 

1230 ' KSL TOTAL 

LEVEL 

1240 R2=RIGHT$ (R+BINS (PS (0. !0)*64+PS(0. I 

)).8) 

1250 ' KSL 1 DIST-0 

DIST- 1 FB (for Y CMD) 

1260 R3=RIGHT$ (RtBINI (PS(1, 10)*64+PS(0, 1 

3)*16+PS(1. 13)*8+PS(0. 2) *2). 8) 

1270 OP AR DR 

1280 R4=RIGHTJ(R+BIN$(PS(0. 5)*16+PS(0. 6) 

),8) 

1290 OP 1 AR DR 

1300 R5=RIGHT$ (R+BINS (PS (1, 5) *16+PS (I, 6) 

),8) 

1310 OP SL RR 

1320 R6=RIGHTS(R+BIN$ (PS (0. 7) * 1 6 + PS (0. 8) 

).8) 

1330 OP 1 SL RR 

1340 R7=RIGHT$(R+BINJ (PS (I. 7)*16+PS(1. 8) 

).8) 

1350 RA=RIGHTS (R+BIN$ (PS (0, 2)*2), 8) :' 

FB 

1360 VCX(8)=VAL("&B" + R2+R0) 

1370 VCX(9)=VAL C4B" + R6 + R4) 

1380 VCX(12) =VAL("&B"+R3 + R1) 

1390 VCX(13)=VAL("&8" + R7 + R5) 

1400 VC*(5)=VAL ("&B" + RA) :' FB 

1410 VCX(4)=VAL C&H" + RV) :' VOICE TR. 

1420 "— -PLAY— 

1430 RY=STR$ (VAL ("&B" +R3) ) 

1440 _VOICE COPY(VCS, §63) 

1450 PLAY #2. "Y3. "+RY :'FOR "Y" COMMAND 

DIST. 

1460 PLAY #2. "§63" 

1470 PLAY #2, D 

1480 RETURN: ************************ 

1490 ' 

1500 '***DSP DATA******************* 

1510 CLS: J=0 

1520 PRINT " [VOICE DATA] ":PRINT 

1530 FOR 1=0 TO 15 

1540 J=J+1 

1550 IF J=l THEN PRINT "DATA '; 

1560 IF J=4 THEN PRINT RIGHTJ ("0000"+HEX 

J (VCX(I)), 4) :PRINT:J=0:GOTO 1580 

1570 PRINT RIGHT$("0000"+HEX$(VCX(I)), 4) 



1580 

1590 

Y 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

0, 21 

1680 

1690 

1700 



NEXT 

PRINT "for Y COMMAND DIST. = Y3. " : R 

PRINT:PRINT " ED I T= (ANY KEY] " 

A=INPUT$(1) 

RETURN 160: '******************* 

'***MML ERR******************** 

IF ERL<>!470 THEN ON ERROR GOTO 

FOR 1=0 TO 2 

LOCATE 10, 21: PRINT SPC (20) : LOCATE 1 

PRINT "* MML ERROR *' 

BEEP: NEXT 

FOR 1=0 TO 400: NEXT 

RESUME 160: '******************* 



5 : > 7 x s 



mcDmmrp 



g|3HC0vS^zOT-To BASIC MuSICA, MIDI, t'll^oT 
l^tztz^X feCto C o X'Tti\ MuSICA£f£ffl LT^Sif-g- 

IWmt LTM#5000P-3£#L_h(fi:-fo 



DD 



=107-24 
3iJslBJt!Zi=If?LlJ6-11-1 



■•7— A^IL— V"jOW^ MuSICAfclJE 1SCC 



by ffiffl&tf ©^ 

§e&£-fcfr&9W32ur^te ££i^ w& 



* PARODIUS STAGE3 

* COPIED BY T. KOMODA '91/4/15. . 6/9 
FM1 = 
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FM2 = 


4V 1 304CV 1 062C 1 6R32. (64V 1 302GV 1 1 0<V9AV7) 


32-21- 11- 14-off-on -10 


FM3 = 


E>R16 64VI3O4CV1062CI6R32. 


<PSG VOICE No. 0> 


FM4 = 


F24=(64V1302GVI ID<V9AV7) E>R1 6 (VI3GV1ID< 


32-32- 10-32-off-on -0 


FM5 = 


V9AV7)ER16 64VI 3O4CV1062C1 6R32. (64VI302 


<SCC VOICE No. I0> 


FM6 = 


GVI ID<V9AV7)E>R16 (VI 3GV1 10<V9AV7) ERI 6 


32- 0- 8- 7 


FMR = 


F25=64V 1 304CV1 062C32. 


0- I9-31-47-5A-6A-75-7D 


FM7 = 




7F-7D-75-6A-5A-47-31- 19 


FM8 = 


A3=6I4V10L4O4BB8B8A-8A-8V6A-8V9G-G-G-8A- 


80- 90- A0- B0- C0- D0- E0- F0 


FM9 = 


A-BG-BG-884B4B8 10 P 1 0M1 6 1 5V 1 304F32F32L 1 6 


0- 10- 20- 30- 40- 50- 60- 70 


PSG1 =E1. Ell/16. 


FD-D-O-<BBBP0 


<SCC VOICE No. 1 1> 


E21/6. E22, E3. E4, E5. E4, E6. 


B31=B8>BB< 


32- 8- 9- 7 


E21/6, E22, E3. E4. E5. E4. E6. 


C3=620V8O4L4BB8B8A-8A-8V6A-8V8G-G-G-8A-A 


0-F0-E0-D0-C0-B0-A0-90 


E21/6, E22, E3. E4. E5, E4. E6. 


-BG-BG-88BB8V9G-G- 


80- 80- 80- 80- 80- 80- 80- 80 


PSG2=F1. F1I/3, FI2, Fl 1/3. F12. 


D3=824V1 1 L404G-G-8G-8E-8E-8V6E-8V8E-E-E- 


80- 80- 80- 80- 80- 80- 80- 80 


F2I/3, F22, F23/3. F24. F25/6. F31/14. F 


8E-E-G-E-G-E-8G-G-G-8V9E-E- 


7F- 70- 60- 50- 40- 30- 20- 10 


32. F33/7, F4 1 /3. F42. F4 1 /3. F52. F41/3. F42. 


E3=612V9O7L410BB8B8A-8A-G-G-G-8A-A-BG-BG 


<SCC VOICE No. I2> 


F61/3, F62/2. F63/2, F64, 


-8BBB8G-4G-4 


32- 0- 8- 7 


F2I/3, F22. F23/3. F24. F25/6. F31/14. F 


F3 1 =V1 36404CV 1 062C 1 6R32. V86 1 C 1 6C1 6 


0-F0-E0-D0-C0-B0-A0-90 


32. F33/7. F4 1 /3. F42. F4 1 /3. F52. F4 1 /3. F42. 


F32=V1064O3Fe2C64Fe2C 


80- 80- 80- 80- 80- 80- 80- 80 


F61/3. F62/2. F63/2, F64. 


F33=6403F62C32. 


80- 80- 80- 80- 80- 80- 80- 80 


F21/3. F22, F23/3. F24. F25/6. F31/14. F 




7F- 70- 60- 50- 40- 30- 20- 10 


32. F33/7. F4 1 /3. F42, F4 1 /3, F52. F4 1 /3. F42. 


A4=616VI0L4O5I3A-. (G-)G-.F. (G-. )G-D-. (E- 


<SCC VOICE No. 13> 


F61/3. F62/2. F63/2. F64 


. ) E-E. (A-. ) A- 


32- 17- 11-12 




B4 1 =A8>AA< 


0-70- 50- 20- 50- 70- 30- 


PSG3= 


B42=B8>BB< 


50-7F-60- 10- 30- 40- 0-80 




B43=E8>EE< 


10-60- 0-E0-F0- 0-B0-90 


SCC 1 =A 1 . A2. A3. A4. A5. A4. A6. 


C4 = 616VI0O5D-. (D-. ) D-D-. (D-. ) 0-<A. (A, )AB 


C0- I0-E0-A0-C0-F0-C0-A0 


A2. A3. A4, A5. A4, A6, 


. (B. )B> 


<SCC VOICE No. I4> 


A2, A3. A4. A5. A4, A6 
SCC2=B1. Bl 1/14. B12. Bl 1/15,812, Bll/20, B2. 


D4=625V9L804 (A-2) A-D-G-A2. D-G-A< (G-2) G-G 

-B>E-< (B2) B>A-A 

E4=613V10O4I2A-. (G-. ) G-F. (G-. ) G-D-. (E-. ) 


32- 9- 0- 7 

0-F8-F0-E8-E0-D8-D0-C8 
C0- B8- B0- A8- A0- 98- 90- 88 


B31 / 1 6. B4 1 /8. B42/4. B43/4, B4 1 /8. B42/4. B43 


E-E. A-A-8A8A-8 


80- 78- 70- 68- 60- 58- 50- 48 


/3, B5. B4 1 /8. B42/4. B43/4. B4 1 /8. B6. 


F41 = (84V1302GVI ID<V9AV7) ERI 6 V760CR32. CR 


40- 38- 30- 28- 20- 18- 10- 8 


B1.B1 1/19. B2, B3I/16. B41/8. B42/4, B43 


32. 64V13O4C62V10C16R32. (64V1 302GVI ID<V 


<SCC VOICE No. 1 5> 


/4. B41/8, B42/4. B43/3. B5. B41/8. B42/4, 843/ 


9AV7)ER16 V861C8 (64V1302GVI ID<V9AV7) E> 


32-21- 5- 7 


4, B41/8, 86. 


(64V1302GVI 10<V9AV7) E> VI 364O4C62VI0CI6R 


0- 19- 31 • 47- 5A- 6A- 75- 7D 


Bl. Bl 1/19. B2. B3I/16. B41/8. B42/4, B43 


32. V861C8 


7F-7D-75-6A-5A-47-3I- 19 


/4. B41/8. B42/4. B43/3, B5. B41/8, B42/4. B43/ 


F42= (64V1302GV1 10<V9AV7) ERI 6 V760CR32. CR 


0-E7-CF-B9-A6-96-8B-83 


4. B41/8, 86 


32. §4 V 1 304C62V 1 0C 1 6R32. (84V 1 302GV 1 1 D<V 


80- 83- 8B- 96- A6- 89- CF- E7 




9AV7)ER8. V760CR32. CR32. 84VI3O4C62VI0C1 


<SCC VOICE No. 1 6> 


SCC3=C1, C21/6. C22. C3. C4, C5, C4. C6. 


6R32. 84V13C82VI0C32. 84VI3C62V10C32. 


32- 5- 9- 7 


C2I/6, C22. C3, C4, C5, C4. C6. 




0- F0- E0- D0- C0- B0- A0- 90 


C21/6. C22, C3. C4. C5. C4. C6 




80- 80- 80- 80- 80- 80- 80- 80 




A5=A-. (G-.)G-F, (G-. )G-G-. (G-. ) G-A. (A-. )A 


80- 80- 80- 80- 80- 80- 80- 80 
7F- 70- 60- 50- 40- 30- 20- 10 


SCC4=D1. 02. D3. 04. 05. 04. 06. 


B5=>E8<BB 


<SCC VOICE No. I7> 


02. 03. 04. 05, D4. D6. 


C5=D-. (D-. )D-D-. (D-. 1D-E-. (E-. ) E-<B. (B. ) 


32- 3- 0- 7 


D2. 03. 04. D5, D4. 06 


B> 


0- 0- 0-80- 0-70-70-70 




D5=A-2. 0-G-A2. D-G-AE-4. D-4E-G-B2A-4. G-F 


0- 0- 0-80- 0- 0- 0-80 


SCC5= 


E5=A-. (G-. ) G-F. (G-. ) G-F. (G-. ) G-A. A-A-8G- 


80-80-80- 0-80- 0- 0- 




8F8 


0-80- 80- 80- 0-80-80-80 


Al=T180VI3ei0LIO4M4I3R8BB-AB-2. . V11>R8BB 


F52= (6402V 13GVI ID<V9AV7) ERI 6 V760CR32. CR 


<SCC VOICE No. 18> 


-AB-2. . 


32. 84VI3O4C82VI0C16R32. (84V1 302GVI 1D<V 


32-22- 9- 7 


CI=TI80V136I0UO4R16EEEE2. . . V11>R16EEEE2 


9AV7JER16 V861C8 (64V1302GVI 10<V9AV7) E> ( 


0-F0-E0-D0-C0-B0-A0-90 




V13GV1 1D<V9AV7) E VI3O4CV1082C1 6R32. V88I 


80- 80- 80- 80- 80- 80- 80- 80 


D1=T1 80V 1 061 0L 1 04M4 I 2D-D-D-D->D-D-D-D- 


C8 


80- 80- 80- 80- 80- 80- 80- 80 


Bl=T180V13ei8L8O2 




7F- 70- 60- 50- 40- 30- 20- 10 


Bl l=0->0-< 




<SCC VOICE No. 19> 


BI2=D-16D-16>D-< 


A6=A-. G-. A->E-2D-2 81 7V8O5L8I0D-CV5CV8C< 


32- 6- 9-12 


E1=T180V1 16I0L8O4 


BV5BV8BB- V5B-V8B-AV5AV8AV7AV8A-4 I 3M4 


0-70- 50- 20- 50- 70- 30- 


Ell=D-D-0-D- 


B6=V14L8A->A-<A-A>A<AB->B-<B-B>B<B>OC<C 


50- 7F-60- 10-30-40- 0-B0 


FI=T180L64 


>C 


10-60- 0-E0-F0- 0-B0-90 


FII=V861C8 64(VI302GVI1D<V9A)V7ERI6 v!38 


C6=D-. (D-. 1D-Z0G-2G-2 VI KE-8E-E-8E-E-8E 


C0- 10-E0-A0-C0-F0-C0-A0 


404CV 1 062C 1 6R32. 64 (V 1 302GV 1 1 0<V9A) V7ER 1 


-E-8E-E-E- 


<SCC VOICE No. 20> 


6 V760CR32. CR32. 64 (V 1 302GV 1 1 D<V9A) V7ER 


D6=A-02A4. >A4A>D-G-02A4. >A4A>D-G-626V904 


32- 0- 0- 7 


16 VI364O4CVI062C16R32. 64 (V1302GV1 1 D<V9 


G-G->G-<G-4G->G-<G-G-G->G-<G-4G->G-<G- 


0- 19-3I-47-5A-6A-75-7D 


A)V7ER16 


E6=A-. (G-. )G->E-. (D-. )D-D-8CC8<BB8B-B-8A 


7F-7D-75-6A-5A-47-3I- 19 


F12=V861C8 64(VI3O2GV110<V9A)V7ERI6 v!36 


AA- 


80-A0-C0-E0- 0-20-40-60 


404CV 1 062C 1 6R32. 64 (V 1 302GV 1 1 0<V9A) V7ER 1 


F6 1 = (84V 1 302GV 1 1 D<V9AV7) ER 1 6 V880CR32. CR 


80-A0-C0-E0- 0-20-40-60 


6 V760CR32. 64 (V1302GVI 1D<V9A) V7E VI 3640 


32. (84V1302GVI ID<V9AV7) ER16 V880CRI6. . 


<SCC VOICE No. 22> 


4CVI062CI6R32. V1364CV1062CI 6R32. VI364C 


F62=V1364O4CV1062CI6R32. (84VI302GVI ID<V 


32- 5- 8- 12 


VI062C32. V1364CVI082C32. 


9AV 7) E> (V 1 3GV 1 1 D< V9AV7) E 


0-70- 50- 20- 50- 70- 30- 




F63=V 1 38404CV 1 082C 1 6R32. (64V 1 302GV 1 1 D<V 


50-7F-60- 10-30-40- 0-B0 


A2=TI80VI361 1O4L8I0D-E-EG-A-EA-4G4. E-4. G 


9AV7) ER 1 6> (V 1 3GV 1 1 D<V9AV7) ER 1 6 


10-60- 0-E0-F0- 0-B0-90 


4G-4. D4. G-4E4. (0-2) D- D-E-EG-A-EA-4>D-4. 


F64=V 1 36404CV 1 062C32. V 1 364CV 1 082C32. (84 


C0- 10-E0-A0-C0-F0-C0-A0 


<A-4. >D-4E-4. <B4. >E-461 2E2V961 3<L I604D+E 


V1302GV11D<V9AV7)ER16 VI 3O4CVI082C16R32. 


<SCC VOICE No. 23> 


FF*GG+AA*Q8 


(84V1302GVI 10<V9AV7) E> (VI3GV1 10<V9AV7) E> 


32- 8-11-12 


B2=D-<BA>A<A>A<A>A<AB-B>B<B>B<B>B<B>BD-> 


(V 1 3GV 1 1 D<V9AV7) ER 1 6 VI 304CV 1 082C1 6R32. 


0-70- 50- 20- 50- 70- 30- 


D-<D->D-<D->D-<0->0-01 L 1 6 


(8402V13GV1 1D<V9AV7) ER16 VI 3O4CV1082C1 6R 


50-7F-60- 10-30-40- 0-80 


C21=L86I9Z103VI3D-D-V7D-VI3D-V7D-4R4 


32. V1384CVI082CI6R32. V1384CV1062C32. V138 


10- 60- 0-E0-F0- 0-B0-90 


C22=02V 1 3BBV78V 1 3BV7B4R4>V 1 30-D- V7D- V 1 3D 


4CVI082C32. 


C0- 10-E0-A0-C0-F0-C0-A0 


-V7D-4R4 
D2=V9622L8O3I0A-A-A-A->D-<A->O-4E-4. 0-4. 




<SCC VOICE No. 24> 
25- 0- 3- 7 




E-4D4. <A4. >D4D-4. <(A-)A-2 A-A-A-A->D-<A- 


•^feX-^ 


0-F0-E0-D0-C0-B0-A0-90 


>D-4A-4. E4. A-4G-4. E-4. G-4623I2A-I 10 


80- 80- 80- 80- 80- 80- 80- 80 


E21 =1.8811 VI 2031 2M4A-A-V7A-VI2A-V7A-4R4 




80- 80- 80- 80- 80- 80- 80- 80 


E22=VI2G-G-V7G-VI2G-V7G-4R4V1 1A-A-V6A-V1 


<PSG VOICE No. I0> 


7F- 70- 60- 50- 40- 30- 20- 10 


2A-V7A-4R4 


32- 15- 9- 16-on -off- 17 


<SCC VOICE No. 25> 


F2 1 = (64 V 1 302GV 1 1 0<V9AV7) E>R 16 (V 1 3GV 1 1 D< 


<PSG VOICE No. 1 1 > 


27- 5- 12- 7 


V9AV7JER16 64V 1 3O4CV1082C16R32. (64V 1302 


32- 9- 10- 16-on -off- 17 


0-F8-F0-E8-E0-D8-D0-C8 


GVI ID<V9AV7) E>R16 (V13GV1 1D<V9AV7) ER16 V 


<PSG VOICE No. I2> 


C0-B8-B0-A8-A0-98-90-88 


86IC8 64VI3O4C62V10CI6R32. V86IC8 


32- 10- 5- 16-on -off- 17 


80- 78- 70- 68- 60- 58- 50- 48 


F22= (64V 1 302GV 1 1 0<V9AV7) E>R 1 6 V 1 304CV 1 06 


<PSG VOICE No. 13> 


40- 38- 30- 28- 20- 18- 10- 8 


2C16R32. V861C8 V760CRI6. . (64VI302GVI ID 


32- 0- 7- 16-on -off- 17 


<SCC VOICE No. 26> 


<V9AV7)ERI6 V13O4CVI062C1 6R32. V1364CVI0 


<PSG VOICE No. 1> 


32-11- 6- 7 


62CI6R32. VI364CV1062C16R32. 


32- 14- 12- 16-off -on -0 


0-F8-F0-E8-E0-O8-D0-C8 


F23= (64V 1 302GV 1 1 D<V9AV7) E>R 16 (VI 3GV 1 1 D< 


<PSG VOICE No. 4> 


C0- B8- B0- A8- A0- 98-90- 88 


V9AV7)ER16 64VI 304CV1 062C16R32. (64V1302 


32- 0- 15-32-on -off- 17 


80- 78- 70- 68- 60- 58- 50- 48 


GVI 1D<V9AV7) E>R16 (VI 3GV1 ID<V9AV7) ER1 6 6 


<PSG VOICE No. 2> 


40- 38- 30- 28- 20- 18- 10- 8 
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ZCT\ y>/N*—>-y7ll$fcE 
*\ J&7 7 v-& ^H^ttif: 
C7)T\ 7 7v-M<7>f±M<&£l& 

Si:#<7)i$l£lzM"t5^'-7 7fc*o 

zzmsmxi,ts jutasiWDx m 

j£flSIl.*(0)x7)E**>«brfrfc7> < x 7 

7i>-vmnt s zn&oizm^ 

(oW *&> » (i ) $ X-cnfficrM. £ 
ti< biSI^Ei^Mifif 

IH2(i, Ell A^«b^«btlfcSS 
£'E*ft < b I S&. ^^JHfar fex 

E*n*f if \*-- 7 M#rr n tfi * 



• 7 T S>-*l*ITIHffi+*<7>itK»jSlM a ffillfi* T * < *P1;? "& 5 Z fc ««IWi<OK. 



100- 


-160 


)\=z>*-^-7<h 


170- 


-E30 


mm. sscDSiHHb 


240- 


-270 


^fflflBCO^^ 


880- 


-340 


=l— tf-A^J^E-K 


350- 


-580 


MSX^E-K 


590- 


-610 


SS. a^CDMff 


620- 


-660 


SIT^S 


670- 


-740 


775-fh7-^f^)6 


750- 


-850 


^>;t-*^^HSSl©fW 



ZCD.^tz-XT)* >/n*— v a -y 7° 
M^^^^t^^x IH3A<tH*Ji 
* <; 6o V* h(7)780~85C«T<7)T*— 

^ >/ \- v >y TTWSt^^fiJtA^^ 

RKCS tt\ ■tEttm t £<»X'-7u 7* 

*#fcffi«(KHBOfcfc£lZM- 
_7?r^n^(tnft*f-r-5.^\ D7 

$ v.N<7)ft mizi&ziDmzbK z n 

520~580fr) o C<7)7°P 7'^ AT 
li. **ffitzfc*ffl*WiSjfcHi 
7JLTl^o OS »J, ^>a'-> 

£(rflffl*M.T^<£s 0.2~0.5 

0.35^rl±S7J-r?)^ltfc* o 

r 7 r ^-S»***>* x **j 



■E333 


F 


OIMSX^-K- la-tf-^E-H 


(X,Y) ^ffi«fi(Z»« 


vx 


X7j|ql©5at 


AX 


x^rsiroso^g 


R2 


A7JlCfflL^§X>y , ;-: ^>7H» 


FO 


fflWzfflL^^^^-^^BBJS 



AIWtoA.5<R 



-j 7*)-w®m&imwt-u 


100 CLS:F=1 


490 S=R2(I. B1+2) + (B2-B1) * (R2(I. B1+3) 


-R2(I. B1 


1 10 INPUT "0:MSX 1 :1V*' V " ; F 


+2)) 




120 IF F <> AND F <> 1 THEN 110 


500 IF F(I+5) < S THEN F(I+5)=S 




130 INPUT "*3*t*fca0 (20 240) ";X 


510 NEXT 




140 IF X < 20 OR X > 240 THEN 130 


520 MX=0:FOR 1=0 TO 10 




150 INPUT "5»a*VH* (-10 +10)":VX 


530 IF F(I) >=MX THEN MX=F(I) 




160 IF VX < -10 OR VX > 10 THEN 150 


540 NEXT 




170 DIM R2(5, 7), F(10) 


550 AL=0:M=0 




180 SCREEN 5, 2: COLOR 1 5, 1 , 1 :CLS 


560 FOR 1=0 TO 10 




190 OPEN "grp:" AS #1 


570 IF F(I)=MX THEN M=M+ 1 :AL=AL+I-5 




200 LINE (0. 200) -(255. 211). 15, BF 


580 NEXT 




210 LINE (120. 200)- (135. 202). 4. BF 


590 AX=AL/M/10 




220 GOSUB 670:GOSUB 750 


600 VX=VX+AX:X=X+VX 




230 Y=0:AX=0 


610 GOTO 240 




240 IF X > -32 AND X < 256 THEN PUT SPRITE0. 


620 IF X < 110 OR X > 130 THEN C=8 : S$ = " vyl\' i 


(X. Y).15. ELSE PUT SPRITE0. (0.212) 


" ELSE C=15:S$ = "tn 1 )" 




250 LINE (8. 205) - (240. 205) . 


630 IF X > -32 AND X < 256 THEN PUT 


5PRITE0. 


260 LINE (128. 205)- (128+AX*200. 205). 8 


(X. Y) , C. 




270 Y=Y+1:IF Y=184 THEN 620 


640 PSETO08, 80) :PRINT #1.S$ 




280 IF F=0 THEN 350 


650 IF STRIG(0)=0 THEN 650 




290 ST=STICK(0) :AA=AX 


660 RUN 




300 IF ST=3 THEN AX=AX+. 1 


670 RESTORE 710 :B$="" : FOR 1=0 TO 31 




310 IF ST=7 THEN AX=AX-. 1 


680 READ A$:B$ = B$+CHR$ (VAL ("&H"+A$) ) 




320 IF AX < -. 5 OR AX >. 5 THEN AX=AA 


690 NEXT:SPRITE$ (0) =B$ 




330 FOR 1=0 TO 50: NEXT 


700 RETURN 




340 GOTO 600 


710 DATA 40. 22. lb. 16. 69, 2a. 6a. 29 




350 FOR 1=0 TO 10: F (I) =0:NEXT 


720 DATA d6. cb. 35. 2a. 33. 20, 50. f 8 




360 IF X =< 120 THEN 440 


730 DATA 02. 44, d8. 68, 96, 54. 56. 94 




370 IF VX < -1 THEN 440 


740 DATA 6b, d3. ac. 54. cc, 04. 0a. If 




380 B1=INT(VX) :B2=VX 


750 RESTORE 780: FOR 1=0 TO 7: FOR J=0 


TO 5 


390 IF B1 > 4 THEN B1=4:B2=4 


760 READ R2(J. I) :NEXT J. I 




400 FOR 1=0 TO 5 


770 RETURN 




410 S=R2(I. B1+2) + (B2-B1) * (R2 (I. B1+3) -R2 (I. B1 


780 DATA 0. 0, 0. 0. 0. 0. 0. 0. 0. 0, 0. 




+2)) 


790 DATA 0. 0. 


0.0 





0.0 


0. 0. 







420 IF F (5-1) < S THEN F(5-I)=S 


800 DATA 0. 0. 


2.0 


2 


0.2 


0. 2.0 


2 




430 NEXT 


810 DATA 0. 0. 


2.0 


4 


0. 4 


0. 4.0 


4 




440 IF X >= 120 THEN 520 


820 DATA 0. 0. 


2.0 


4 


0. 6 


0. 6.0 


6 




450 IF VX > 1 THEN 520 


830 DATA 0. 0. 


2.0 


4 


0. 6 


0.8.0 


8 




460 B1=-INT(VX) :B2 = -VX 


840 DATA 0. 0. 


2.0 


4 


0. 6 


0. 8. 1 







470 IF B1 > 4 THEN B1=4:B2=4 


850 DATA 0. 0. 


2.0 


4 


0. 6 


0. 8. 1 







480 FOR 1=0 TO 5 







il 1. 
t* 0. 8 

0. 6 

0. 4 

si 0. 2 
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Mitt < CllglO^ofc, *yyA )VT?ms"\Z'OX> 
^fX^K-fe-7'! fcA,TJ§£K#W;:&6£>j&*, d© 



^ -tz * "(7) 2 fifl*% -5 „4HUJ'< 
- v<79#-£- fc & U x * v-^r > v -^ 

iztx „ 

$x, *i^~fr->i*+ju tW 

<7)(is B^lzlfl-f^iiSSz"-? 

ih,\, &£&{£ 7T-T/WZ K 

2, 3 ttJUH-T*-? £##&*,£ 

tLfcb, M^tH1"i:#fc K 2, 
^M^LTli, £-f >>-*>*> + 

;U* # iA^T 3 /c#><79 7 W JU& 

OPEN "FILE" FOR OUTPUT 
AS #1 

frtC^TUStftl^ TPEN" 

frib *AS #1" JTttUKtT 1 fftz 

TILE" A < i|gi:tliit , 7 7'f 
J\s&~C\ TOR OUTPUT" *<* v— 

^>v-wi4z##iM;" fci\-9fi 
Wo *LT*AS #1" £1^(79(2, 



7 r -f M J— £(z 1 MH * T'*- 
TVfSZttfT*^ 7 7"fJl/# 
-§-(79 1~15<7Hb, &#&fc<7)£ 
iHA/Oft?,, -fT'lZ*-7°>£ft 

(Z&&7!rb>EtLTtao 

(ix 7 7"f;u#-§-<7)i LrfHsM-fc 

l\, ^fcO<7)7 7*-T^5:*— 7°> 
Uzl^£h, 
MAXFILES=2 

MAXFILES=15 
£LX. (2 U S9T15fli(7) 7 7-OU 
#*— 7°>T*#^Z i: (c*« (- 

1" S o 4- * ^ < «£'J ^FKz £ if 
#)Tfr<ckTtiLct-?)o 

77^ ;!•#*— 7>T*£ fc b, 

(Z(iPRINT5:?r^lJffl-r^ 

PRINT #1, "ABC" 
T\ cF^Stf— 7Vtfc7y-f;p 

#^-1<7)7 7'<JUZ N *ABC*£U 

#<a*>»J(Z7 3»-OHZ#<* £ 
#/Lftl£ PRINT3t^f^-9^i:fc 

PRINT USING(79f£l^77<79;bfr3 




PRINT #1, USING"##",A 
fcA,Ttel^fcT#S„ 

?T, #££^«;bo7c^b, 
7 7-nu£**Q-X*-tS'J&gA < 

irtite t ^ b « T tiTH*) 'J fe- 
et " t , MSXlz *, ^^ £ gfx.T^ b 

CLOSE #1 
ft\ 7 7"Ol/#-^-1<797 7'OU ; c r 

? q-XT z>tzxb<nb<7) *§f% 
T^-XO^yr-O^, i>P— Xf 

Ubl& ^ifttiSLLtzyT-fJun 

Ftyg £? -f 7° LT <&•<£-),, PRINT 
£T'x- ? £@!q IZ^^I" 3 (79 £ 

iilCct-9(Zs T-v^.^(;«#iAS 
titzcnWibfr&'^tZo 

OPEN "FILE" FOR INPUT AS 
#1 

£TZ zmt. 7 7<;i/#^ 

1 X\ TILE" 1 1> -9 ^BUC7)7 T -f 
JU?r, v-'!r>vl';K79l^aiL 

INPUT #1, A$ 
tt%Zt.T\ #— 7V**lfc7 
y-r/U3&>^ *A$"(Z^:^IJ?rM^ 



Ztltct, INPUTXT*— *- K 

Anicfl^^^dTo fo L < (iREAD~ 
DATAS:<7)*READ*A < , i ttl&%&& 
TZ TATA" ^ftftt***) U tZ7 

7"f;u^blrct;. t^Xtz&itf 
t>W<?T^irbLW£\.\ 

INPUT #1, A$ 
<7)*^ fj (Z s 

LINE INPUT #1, A$ 

K^-7>(79%g-t, rmt^ib 

-o tz b 7 T -f JU^r^ P— X"r^> ~ 

CLOSE #1 
ZTtUfW* 

zzix<nmmx\ ->-^r>-> 

i'-iU7 7"f^K79##iA^-^, frc<fr 
ttiL(797J>i(ct^^o/zi:,fOo 3 

^-/«'J^ b 1 lix 1 — 10 
it T*<7)£fc£ N TEST" 1 1 v-9 7 T -f 
;KZ##at;fc«7)o ISc< U^ h 2 
X\ ^-nbco^-^^ TEST" *» 

bI^tHTfc(7)^o 

*li prints: i: 111 Ux ^LTH* 
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•-(■•5^ h /ui>'(ntzti-y. 



* 
n 



©AS 






tztJLtfs 

PRINT #1,"ABC","DEF" 

INPUT #1, A$ 

ABC DEF 

PRINT #1, CHR$(34) + "ABC" 
+ CHR$(34) 

-e##iM, /-**§•£• (is 

2?r(Z&oTUSlt£\ 

INPUT #1,A$: PRINT A$ 
ABC 

LINE INPUT #1, A$: PRINT A$ 
"ABC" 

3(7)^-} IZ S 7 7"OK7)##& 
PRINTS INPUT3tc7)iffl4?r «fc < 

#*.THffT s «fc ?i:t«t-5. 
itz, *#&#(*& f%<frtHL 

0)J§£-fci^>A,£z £*<&#*„ 

JttUffc, -f^TPRINTXCA^TF 
|£H, INPUT5:c7)A^^mt#A 

t\ »#&##, 

PRINT #1,1,2,3 
T\ RfttfiUft 
INPUT #1, A$: PRINT A$ 

1 2 3 

*fcx »#&&#* 

PRINT #1, "1,2, 3" 

FOR 1 = 1 TO 3: INPUT #1, A: 
PRINT A: NEXT I 

l**tt£ ^Pil^SHTT'ATJL 

1 
2 



3 

fc#S 

PRINT #1,"A" 
INPUT #1, A: PRINT A 


->X^h±fztihit\ 

lzMTZ>££tb£LX. 3gT<7>ffi 

smw£. mmtzmmz^x 
m^xtszi, it. 

OPEN "FILE" FOR APPEND 
AS #1 

£^icnit s TX'izfc&tzyT 

Tl>< &(7) o *F0R OUTPUT" £\ 
TOR APPEND" C^tTUI) 

t)(t/^c Htri:lHi«ttz x MT-(i2 
fi$ftt*T* mx-A^LctTo 

^tZ N 7 7"OK7)1f'f X£i§L 
L0F(1) 

tiv-5 ho^^h^o ( )rttz«:, 7 

^/•c'o fcfc\ ZCO*LOF"(i, &< 
iX'h *T-*o>mL*XWj: < T x 

$m^Lt£^£iiz 

3fctZ N 7 7"f;U<7)3S.^E(^iK^ 
L0C(1 ) 

T < S<7)T\256^\'1' hlM&C#o 

TL^„ LfcAST, "tz^tzl" 
(DitM." L rfr;b *r lb 4' l M7)T% h $ 

E0F(1) 



Listi ?7-r;b»*fcfc 

10 ' Hfi#tf» Jfci> fxh 

20 OPEN "TEST" FOR OUTPUT AS #1 
30 FOR 1=1 TO 10:PRINT #1, I: NEXT I 
40 CLOSE #1 



List2 ?7MVU«l!3WiJ 



10 ' HfWt* 353? fxh 

20 DIM A(10) 

30 OPEN "TEST" FOR INPUT AS #1 

40 FOR 1=1 TO 10: INPUT #1,A(I):NEXT 

50 FOR 1=1 TO 10:PRINT A(I);:NEXT I 




IF EOF (1) THEN ftfclj 
ELSE &t*7-~ftfjb& 

£§&;£#£(& ;U-7°rtT'C(7) 



%\\LX)\s-7°*mitz »J T So 

OMERGEotfi? 

4lHl<7)T— V^ib^tlT L J 7 

ltft£\ Vp^a^mergel 

T "tlntl^ *MERGEo 

MERGETSv oT<7)(2 x ffiijUz 
1^-5 fc *»<7)7°P^A£-3& 

fcftizte, ofcif«fc 9 £"f S7°p 

^'7A^ V^*— fe— 7**TS 

*DOSfc if"?? -f 7° L Tirotf) S T 7 
X*-^5tt\ 7 7"OU£iZ-7* 

TS"£i^z:£o Tfcf* s t)o 

£ffiip.tZ N *7 7-01/& MERGET* 

#S-b-7'^5t" i:#x.Tfo^^ 

SAVE "FILENAME" 
^^oT-tz-7Y-S>tt^ 7'7.+ 

— tz-7'-rs(z(j, 



SAVE "FILENAME", A 
<7)J:tI:> 5&H *,A" %-fttfCH 

10 PRINT"A" 
£ I ^ 7°P ^7 A £ N *TESTASC" 
fci^-7T-f s fl^.TT^*—' fe— 

y'Ltztt^o -X^ NEWpv> 
KT"7°P^'^A?r)lLy-*^, 
20 PRINT-B" 

•te-7" L fc *TEST.ASC" %■ MERGE 
LT, >)*Y*M-oXfr&i 

MERGE "TEST.ASC" 
i:A*rSfc*tto *OK*(7)X^*^ 

LIST 
£LT<frJ:-Po 

10 PRINT"A" 

20 PRINT"B" 
£ ^7F $■ tltz h MERGE^T tz 

Z\ (7) £ £ >Ei L ti < *> ^ I ^t 4 s 
IV7)12 N MERGE-rsi|IJi:$nSffl 
(7)7°P^"7A(Z, Hi;fi#§A<# 
£L/c%£-o cniS, MERGE^n 
Sfk of (J MERGEP v> K<7)£> 
^ l:^T57 r-f 7K7)7°P ^7 

A^\ flBfe$tiSCi:{z^s T- 
fcs $$)s cc7)z^iz^x.-;±,%-r 
tllf, MERGE(iflfi*fc*J: 
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5y-A£f^>T#fc„ 

y— ajMji;*5£, H®<7)^ 
;u?r±.¥t- p > h P — )l> L J: -5 o 






, 



List3 ^ECM3Stf$Wx£ 



' x J&iii\ 

20 CLEAR 1000:A=RND(-TIME) 

30 DIM SI (64), CO(64), Xl(7) . Yl (7) . H$(lj2f) . H(10) 

40 PLAY"T250L32S0M1000O5 

50 FOR 1=0 TO 16:A=SIN(I*3.1415927#/32)*4 

60 SI(I)=A:SI(32-I)=A:SI(I+32)=-A:SI(64-I)=-A 

70CO(16-I)=A:CO(16+I)=-A:CO(48-I)=-A:CO(48+I)=A 

80 NEXT I 

90 FOR 1=0 TO 7:READ X1(I). Y1(I):NEXT 

100 ' Miv 7jtt roi 

110 ON ERROR GOTO 1500 

120 OPEN"HISCR.DAT" FOR INPUT AS #1 

130 FOR 1=0 TO 9: INPUT #1. H(I) :LINEINPUT #1.H$(I): 

NEXT I 

140 CLOSE :0N ERROR GOTO 

200 " ¥ -h fcltfW 

210 SCREEN 5.0:COLOR 15,0,0:CLS:OPEN"grp:"AS #1 

220 RESTORE 2100:FOR 1=0 TO 15:READ R,G,B:C0L0R=(I 

.R,G,B):NEXT 

230 X=0:Y=0:R=8:XX=120:YY=104:RR=48:SC=0 

240 A$="":F0R 1=0 TO 7:A$=A$+CHR$(VAL("&h"+MID$("3 

C7EFFPFFFFF7E3C", 1*2+1, 2))): NEXT I:SPRITE$(0)=A$ 

250SI=2*SI(RR):CO=2*CO(RR) 

260 L I NE (XX+8+S I . YY+8+C0) -(XX+8-S I , YY+8-C0), 4, , OR 

270 GOSUB 900:LINE(N,M)-(N+15,M+15),2,BF 

280 GOSUB 900:LINE(N,M)-(N+15,M+15),8.BF 

300 ' My %-r 

310 A=STICK(0) 

320 M=0:R2=RR:X2=XX:Y2=YY 

330 IF A=0 GOTO 380 

340 XX=XX+X1(A-1):YY=YY+Y1(A-1) 

350 IF XX<0 THEN XX=0 ELSE IF XX>239 THEN XX=239 

360 IF YY<0 THEN YY=0 ELSE IF YY>195 THEN YY=195 

370 IF X20XX OR Y20YY THEN M=l 

380 IF STRIG(0) THEN RR=(RR+1)AND 31:M=1 

390 IF M=0 GOTO 420 

400 SI=2*SI(R2):CO=2*CO(R2) 

410 L I NE (X2+8+S I . Y2+8+C0) - (X2+8-S I , Y2+8-CO) , 11,, AN 



-7(-#5«fco *>&#£ x 7^.-7. 

-(73^— A(i(io# fjUoT, 
MSX2 J t>2 + T J £>-S>^ KT-T7 
•i ^-t&o turbo RT*^3£, if-o 

tbZKtztft'foo MSX2^2+<7)o. 
-1f'-(7)As z**>A,&Si\, 



7r-OUTVW 7,z\7t^ /W* 
p 7 £ t+j L tz 3.—-*f—<7)& mt>\ 

JK7)7T<;U^(i*HISCR.DAT" 
it £tbX?*-A**Z> t § C& 

z<nyy^Mftiyffy^ s p— K 

X7— £*ON ERROR GOTO"T*-9 




D 

420 SI=2*SI(RR):CO=2*CO(RF 

430 LINE(XX+8+SI, YY+8+C0)-(XX+8-SI. YY+8-C0), 4. , OR 

500 ' Jv wn 

510 X=X+SI(R):Y=Y+CO(R):IF C THEN C=C-1:G0T0 550 

520 IF X-XX<-4 OR Y-YY<-4 GOTO 550 

530 IF X-XX>11 OR Y-YY>11 GOTO 550 

540 R=(64+RR*2-R)AND 63:PLAY"g":C=5 

550 P=POINT(X+4,Y+4) 

560 IF P=8 THEN GOSUB 800:GOTO 580 

570 IF P=2 THEN GOTO 1000 

580 PSET(X+4,Y+4),9:PUT SPRITE 0. (X,Y).9.0 

590 IF X<0 THEN X=0:R=(64-R)AND 63:GOTO 640 

600 IF X>239 THEN X=239:R=(64-R)AND 63:GOTO 640 

610 IF Y<0 THEN Y=0:R=(96-R)AND 63:GOTO 640 

620 IF Y>203 THEN Y=203:R=(96-R)AND 63:GOTO 640 

630 GOTO 700 

640 PLAYV 

700 •*-/ WW 

710 GOTO 300 

800 'M MM 

810 PLAY"CEGCFACGB" 

820 LINE(0.0)-(255,211),7 t BF.AND 

830 GOSUB 900:LINE(N,M)-(N+15.M+15),2.BF 

840 GOSUB 900:LINE(N.M)-(N+15,M+15),8,BF 

85'0 SC=SC+1: RETURN 

900 • irfji k ; m w* 

910 N=INT(RND(1)*240) :M=INT(RND(1)*196) 

920 IF ABS(N-X)<50 AND ABS(M-Y)<50 GOTO 900 

930 RETURN 

1000 'Y-kt-r\- 

1010 SOUND 7,254:SOUND 8,16:SOUND 11,50:SOUND 12,0 

:S0UND 13, 12:S0UND 1,0 

1020 FOR 1=1 TO 50 

1030 SOUND 0, 1*2+50 

1040 LINE(X+4,Y+4)-(RND(l)*255,RND(l)*191),9 

1050 NEXT: PLAY" r32s0mlml000r32" 

1060 PSET(92. 102), 0:PRINT#1, "GAME OVER" 

1070 PSET(88, 118), 0:PRINT#1, "PUSH SPACE" 

1080 IF INKEYSO"" GOTO 1080 

1090 IF STRIG(0)=0 GOTO 1090 
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ft 
ft 



m 






CC"Tfc*ON ERROR GOTO"£f£ 

?fc£ ^Tfe^ J3 COT 1 - V(7)j£ffl fc 

3£teT, S0UNDX^^7 7-f -y? 






110 CLOSE 

120 'Mm TAW 

1210 SCREEN 1:WIDTH 30:COLOR 15.0,0:KEY OFF 

1220 FOR 1=9 TO STEP -1 : IF H(I)<=SC THEN H(l+1)= 

H(I):H$(I+1)=H$(I) ELSE GOTO 1240 

1230 NEXT 

1240 HS=I+1 

1250 H(HS)=SC:H$(HS)="" 

1260 LOCATE 7,0:PRINT"*** HI-SCORE ***" 

1270 FOR 1=0 TO 9:L0CATE 2. I*2+2:PRINTUSING"## ### 

###"; I ;H(I) .-LOCATE 13, 1*2+2 :PRINTH$( I) ; 

1280 NEXT I 

1290 IF HS=10 GOTO 1400- 

1300 'MlV- hfoftrf 

1310 IF INKEYSO"" GOTO 1310 

1320 LOCATE 13. HS*2+2: LINE INPUT A$ 

1330 H$(HS)=LEFT$(A$, 16) 

1340 ON ERROR GOTO 1600 

1350 OPEN"HISCR.dat"FOR OUTPUT AS #1 

1360 FOR 1=0 TO 9:PRINT#1, H(I) :PRINT#1, H$(I) :NEXT 

I 

1370 CLOSE-.ON ERROR GOTO 0:GOTO 1400 

1400 'iM'M 

1410 A$=INPUT$(1):G0T0 200 

1500 'MX3T ] )-V 17- 

1510 * o\um-i Mi) 

1520 FOR 1=0 TO 9:H$(I)="MSX MAGAZINE" :H(I)=0: NEXT 

I 
1530 RESUME 140 
1600 'Mffl 7i\- 17- 
1610 LOCATE 0,23:PRINT"f'^ 7^ iK; :A$= INPUTS (1 
):L0CATE 0. 23:PRINTSPACE$(13) ; :RESUME 1350 
2000 MK9'M f*~? 

2010 DATA 0. -4. 4. -4. 4, 0, 4. 4. 0, 4, -4, 4, -4, 0. -4. -4 
2100 'A'M f-) 
2110 DATA 0.0.0. 3.0.0, 7.0.0. 
2120 DATA 0. 7. 7, 0, 7, 7. 
2130 DATA 7,7.0. 7,0.0, 
2140 DATA 0, 7, 7, 0, 7, 7, 







xvsH-ntT-v* 




8 ^(Dmmtemmuvo yx 
iz.-Di5.miiZ, Jktktt 7 (Dim 
*mnzz^mDfco"zn\z&M 

tf#\,W*Zz>ls1z£>mttZ>\*Z 

^£o ~C^ 9J=3STMJIEL£CD 
T\ 38=3 N 8^^t9J=3^CD 
gggfggfcl/^^/ulZ^SotJS 

i^3/u«ffl3#ioffi££>©;ei:m 
£> zn&±m 1 $®x-7izfi 

izszKc^oizueiv, -s-mzBu 

&©ffl££CDtk-3IZA®<i:B®C 
H9£tt5©#ll5g£3-5? & 

ffi©M&-i§UXh 
A.7^35fJ> F.5£58!> 



P<BASIC©:7tK7^£fPi> 

tf^^oiz-tz-yuz^zztc 
ftotfWBi£.mg.vmfvv, mm 

b-^^o ^oti;t\ zffizi- 
+- izotsjsji^ ra^fc 

JStaiS 9 ^20B(^Bffl?i$))c 
#£gt«11^8B#g5B©, M^?m2 
m^Vo ^T^(Sl^T©t35 l 0^c 

ffi?N KSv w§§§£bj315l-t: 

©WkOIZ^Sie&IZ^ fY 

x^izfe^/xju^as^Ts tt^s 



B.7£3($J> 
C.7^20^ 
D.7£10?J> 



G.4#4(H9> 
H.4#20f9> 
I .3^55^ 
J.3^0fJ> 



^■C5fe 


t" 107-24 




^«a?^E^ 


WOJ6-11-1 


xu-j:yn 


3«LUtfJb 


(tt)77^- 




MSX7#9 


>H$$g[5 


^-y^-©^7^Xl^ 
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MSX turbo R 

x$y$-Ftt<Diz&te-Dzi\z>ttn<z:s msfoMu 

I 






*7°«J 7°p -tz -y •*- *frfr* * fcfcfc 
*7° V -?n -tz -y tr-*" £ mi ti% 

#include 
#define 
#ifdef 
#ifndef 

m 

#elif 
#endif 



mtfite c =1 >/\°-r 7— w/'j 7"n 

*ttJ: U fct&EU V'J 7°P-tz y? 
-* £i^7°p?7AH&gf£tt 

sdt*>6, -vuyp-tz-y-^- 

fcftU MSX-Oftif^-d'^T 
(i, *CF.C0M"#7°U 7°P -tz -y9— 

'J 7°P -tz >y +>— * C * fc 5 t> <7) li 

3&CMSX-CC& 

#if 
#elif 



^ 






#define square(x) x * x 

tdefine max(x. y) ((x) > (y) ? (x) : (y)) 

#define isupper(c) ('A* <= (c) && (c) <= ' Z' ) 



m-otzm^om 



z = square(y + 1); 
z = max(x++, y++) ; 
u = i supper (*pc++); 



z = y + l*y + l; 

z = «x++) > (y++) ? (x++) : (y++)) 

u = C A* <= (*pc++) && (*pc++) <= ' Z' ) 




^n^ 



;K7)43-<— v l-#* N flT l»* & 7J 

:: ££*?§&, 

#define 

Xfr£i ttfe» yU^P-tz-y^t 
— A^nfc&Blf*::*:^ — 
fiSftti::v?PGD*K&\ t>L<li 

^■bo fcfcitfcfc 

#define X Y 

puts("X") ; 
£7)ct^^7°P^7AT\ ^I^IJ* 

fr'? *feS*^l^tfx MSX-CT* 

^ci:*\ ^<(Dc<nmxmm 

LfrU 5:^iJ4"T-t>v^p$r 
&u ^<7)ot>y-o»^nfc7*a 

»S|;b1~v?p, tz£7L\& 
#define BUFFERSIZE 512 
#define COLUMNS 80 




-9tz^^-5v^p"li,LtfLt^¥ 

fc £ X.I& *8J0) *square*<7)«t 
3 4->S^^<7^Bfe)iI1'i(zd: SIMM 

«x)*(x» 

mxMftXZZ>tz?>i L.*rL53S 
»J<7)0!l(i, v?p<7>3|#$tfr2[H 

z=max(x++, y+ + ) ; 
tzioT, ^3&x£y<7)*#lv[5 
0(F>imZ2 i %Z- : bo hLh, -ft 

& *x+ + "<r> x i ciiijfiFffl * N '* 

L^Lx sx max" J fisupper"c7) e );-9 

^^T-* S i: m^ L T«o T L * 
^C&d^ts *<r>tzisb, ~fu<7 
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TO-*)\>-j>vjiK 







1a<rm. 1 H £ £ sbXMz(T)h\ 

l^i;«ffiiT**>-3Tt>, P>/\°Y5 
-li i o T li!I«r fc L ftft^ U 

HMfBTSv^p, *(F>tz#), 10 
f£ffl#&5^£3l#J&Ci^Tfc 

*M2*& 3 1 # »£ 2 tUi^LLMrf 

putchar(* p+ + ) ; 
fcl**-^ -JITS £ IE L *-?&:£ 
12, MSX-C^LSIC-86l=fcl^T«, 

b\ MS-<rr?«¥^iJ# fettle - 

w «t -5 tarn u «* i&rt s p >; n° 

MSX-CVer.1.2 
LSIC-86 Ver.3.2 
MS-CVer.5.1 

LSIC-86 Ver.3.3 
MS-CVer.6.0 



tzsb, ztihiz^ttizmfc?* 

Wpb»JLTfc<o 

v ? p £ {fP4 ; < x H 2 cz}f f£ 
L fc J: -5 tt#«B<7) =? -f 7* 7 U -M 

TlMftrW«CSo fc£ill& 
puts(" Hello") i 

■i =7— t*p >/\°-r ;uf* tw&k 
\z&ntf1&£%bK MSX-CT-teig 
£tfl\, *fcu M8r*main*A«fit£ 

P^7V-cor B n's S%7>Mifo7> 
int main() 



{ 



} 



puts ("Hello") 
return ; 



PI «J v £Xfc P >/ *-r 7 -T*P > 

So L*-L*return o; *££«&?- 
£ £ % — SI5CD p >/t-f 7 - £ OST- 

$ AXU i>^ ? — # t'CAoTU 

^fi*<x7-p- K£#8R£ft. 

fti5-> «vfe— S>A*^£ftfc 
ST, *2Cii:«)fcJsW-fc, 



SJfttttffcl^f^UH 



MSX-CX' <DW)te 



gets 



puts 



main 



open 



creat 






•¥n' SrilJJOLfc^c 



KfllilttMISfiS, 



3l!fctta»*k:f 2' 



3l&l±*4k:f 1 



-tof&oc-eoi&fts 






•¥n'*iiiw-fs. 



Dfittt^?-S#e 



3l#tt2fla*fctt3 



§l^ttlflS*fett2 



T<^ct-)o ^<7)i3*l-fcx MSX-C 
(7)V~ zl 7^141 fc#*rft"U^j:i\ 
^^t^M L T$m L fcAC 






v^pcprnttA^s^r^^j-HK 



«« 


MSX-C 1.2 


LSIC-86 3.2 


MS-C 5.1 


clearerr 


F 


Ml 


F 


fsetbin 
fsettext 


F 


Ml 


l 


getc 
getchar 
putc 
putchar 


F 


Ml 


M2 


isalnum 

isalpha 

iscntrl 

isdigit 

iskanji 

iskanji2 

islower 

isspace 

isupper 

isxdigit 


M2 


Ml 


Ml 


tolower 
toupper 


F 


F 


M2 


inp 
outp 


F 


Ml 


F 


movmem 2 
setmem 2 


F 


Ml 


— 


max 
min 


F 


F 


M2 



F 

Ml 

M2 

l 

2 



5i»* i mma-h ■*?*<> 

5i»* 2 0j^±8fii'ts-Briitt^*6^^ p, 

j 4 7*7 y -K^ttlX^-fcV* 

ftfr <0 K fopen() <D% 2 3lftttf&£?- So 

ISKg i <D-£$kfe<D tz * »c ^> 6 #, 
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■wwu 

0S(7)*UNIX"T1i^+^ h7 7"f 
;U7)^T£0AH(LF)T-S|;b-fo $■ 

*>*Macintosh*T'ti, ODH(CR)T* 

^C^^'MSX-DOS, MS-DOS, 
CP/MT3tir£3|;b-f <0(i. 0DH£ 
OAHcOZA-f h (CR+LF) *<7)fc 

:n*#;Btsfc^ Msx-cfc 

y>? nfc7 7 < ./K7)CR+ LF£, 



putchar('¥n') ; 

putchar((char)0x1a) I 

'J — A<„ *LF*& *CR+ LF'tl^gl 
LT<tl-5)o feU 7-f7*7'J- 

- k t > \*-r *■ u -«- Kwitt* 

/c£;ttiMSX-ccoi§^-nii N 7 



CO *fsettext" £ tz It *fsetbin* £ Qf- 

^TSo ^C^MS-CT*'^ *— 
T7Vt-S>£#, S9"r_fmode*(& 
04-#RB U =£- K tfjfc* S J: -5 

^f^^P^A^?,^ 1 frt 

— x-f 'Jt--i*— (Wfc-3*: LTs 
-7Vf5fc&!)<7\ *binfopen"£ 



CCO V— * 'J 7. Hi, MSX-CT' 
^•(7) i £ =1 >/ n*< ^T*# & i -5 I- 
4-otl^o £fc, MS-C-Cn>/\° 

#define MSC 

P-b-y-y— 3t(7)v 
#define MSC 
#else /* MSC */ 
#endif /* MSC * / 

JU£ft&i o i:4'-5t^?)o 
#fc\ *#else' , £*#endif' , <7>&£ 

l\, fc£. ZG0i9H»^Tfc< 

£ % *#ifdef" £ *#endif *<7)*HfcM 



A^-u^-sr^^u*-?:/ 


Scfcb<tffi*j«v^p©-y->^;b 


/* 


/* 


* binfopen. c 


* macros, h : some useful macros for MSX-C 


* (C) 1991 N. Ishikawa 


* on 30. Jul. 1991 by nao-i (0 1991 N. Ishikawa 


* on 27. Jul. 1991 by nao-i 


* 


*/. 


* #define MAIN_C source file name 


tinclude <stdio. h> 


* #include "macros. h" this file 


#ifdef MSC 


* #include ... other header files 


#include <fcntl. h> 


* 


tinclude <stdlib. h> 


* ~VAR type name INlT(value);' will be substituted to 


FILE *binf open (char *, char *); 


* type name = value; if MAIN_C is defined 


#endif /* MSC */ 


* extern type name; if MAIN C is not defined 

*/ 

#ifndef MACR0S_H 




FILE *binfopen(pcName, pcMode) 


#define MACR0S_H 


char *pcName; 




char *pcMode; 


tifdef MAIN_C 


( 


tdefine VAR 


FILE *pFile; 


#define INIT(x) = x 




#else /* MAIN_C */ 


#ifdef MSC 


#define VAR extern 


int iFraodeSav; 


#define INIT(x) 




Send if /* MAIN_C */ 


iFmodeSav = _fmode; 




_fmode = 0_BINARY; 


#ifdef NDEBUG 


pFile = f open (pcName, pcMode); 


#define assert (x) 


fmode = iFmodeSav; 


#else /* NDEBUG */ 


#else /* MSC */ 


#define assert(x) if (!(x)) fputs(msgAssert. stderr). exit(l); 


if ((pFile = fopen(pcName, pcMode)) != NULL) { 


VAR char msgAssert[] INIT("Assertion failed. ¥n"); 


fsetbin(pFile); 


#endif /* NDEBUG */ 


#endif /* MSC */ 


#define ISWAP(x. y) {int z; z = x; x = y; y = z;} 


return pFile; 


#define CSWAP(x, y) {char z; z = x; x = y; y = z;} 


) 


#endif /* MACROSJ */ 
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T*=*jb-wjsa 



b*iJfflLT<&T(5U\, 

V-t-Dtztf(M1$l*. IW»*main* 

#define MAIN_C 
#include " macros. h" 

#include " macros. h" 
cod; -9 cc-f^Oo 

varm ^iu in it ami) ; 




VARintxlNIT(l) \ 
(J, *MAIN_C*A < S£§£ft-CU£ 

int x = 1 ; 

extern int 
£»£ft5 D *tf>l6^ V—7. 
77 i fil#l')<0*-j'Cti, ?*P 

##-?*»* «?*u ^';c7)7 7"r 
msiMzu^xmo 

~%<r> ♦assert* (is 7*> \* -y ?' (zfl 

assert (0 < x) ; 
<T> «fc -5 IZ N M? fcSfcJrfff * £ C> 

fc L&fWS U £fc4'U £>i7 

7A/)f7t5„ 

MS-C# ^*c7)«^7 -f 7? u - 
Ca-^tl-S "assert" Tli, 17- 
^•y-tz— vtmz s TJimklgZL 
tzV—X7 7-<}l'<7)g 1 m£'iT&^ 
1fWfr £ nz> «fc -5 P& o T 1 * -So 

"Cfc*fcac#%» MSX-CT-ti-^- 

#define NDEBUG 

#include "macros.h" 
(D^nlZ^ *NDEBUG*a*£*£ft 
Tl^Jft^fix *assert*«t6#& 

£&<7X *ISWAP*£ *CSWAP*£ 



p^^~ 




**. 




••••. 


#7"x*-a>>b 


1 


Sgro + ^MSX-C 




API. SB** 




J©ffl*-C*»R 


* 


LTUSCOT\ 




CliliCATi: 




i^ACfcfctJ 




«>, ?-f^^7 


■ '■■ 


;u/N'Afo&2> 



#*.*v*nfcf intM<7)»(z(2 
*ISWAP*£\ charii<73^iJ[tZtt 

*cswAP"^^n^n«9o 

»Brr»teClb 
COKWWSaBtt 

*£&7> c =1 w \°-r v -(73###tz 
frits z^t-sSo ct^&ic 

out *##fctW>f £;fc£i!! 

A,T*<frfc 

* "f <rf£<7) C3>/\*-f7 -<7># 
#», OjtJ MSX-C^fflC7)### 
tlTlt, 2fc<7) 2 #*<**„ 

Msx-cArit^ ■ 

MSX-CAPTT^ 

«»#*#$£ t>1450R[*&A] o t 
tl-ifftMSX-C Ver.1.1£Ver.1.2£ 

—A £fF£ fc #x7)t- i> ~ -y ? %■ 4» 

'Ot LfZs mmwrntiL t < 

*1£i"Z.t£Ttz£xn s ^iJytJl/ 



£tltzV>7°J['$:M#>tz r 7'< X 
5 7JW n'A (fffi^3500R [f^glj]) j 

BBH#i #A«»l ^fc**< 2 # 
•B.W.^i--/\>/ 

D.M.'J'yf— #Sg 

yp^75>^mi§c 

ANSI?Jlt&iWM 

TUT, fffi^S^]KS7!)<2575R[^. 
J^l m 2 JE*<2800R [f^iA] t «T 

iTs 7°p^'^v-izi:oTc7)^# 

<7)«t-9^C*T\ 10JJg&&igx.£P 
>^*-tZ7— C^oTL^o 
C (7)^&*^!*3 o Tig 2 JKA<m 

(7)T, *HB(ZftlNTfc<^(tT\ 

JRjfi, C3>A°-f7-i:7-r7' 

sBgw^^ft*si^Tn.Ni) mm 
t <= 7 -r 7"^ u — <7>isfK3te-3 t 1 » 

•Lewine D^ 
POSIX Programmer's Guide 
O'Reilly & Associates.lnc, 

ttz\ cizmr^wmm^) 

fctUTU5(7)Ts — ^f^T^?> 



^f 



^ 
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MSX^n^v-HSSftii 





JU<F5kWZ 







wmmm 
an&ruutt 




ttft^SCISBRUri^fcBOBBCMSMi, o£D286-tf>386 



iUSS&tt!? 



80286^80386 (g£tii386^^ 

U5<7)lifc^THMS-D0SV*>> o 
^LT, MS-DOS£l^<7)tt8086 



<b, ;b£';b£'286^386£SI#-£-U 

IZ8086S^E- K£&oT^3tf 
ofryiCs 4-"Cti»t>ft^-fc386 

L* x fcx 286^386T'8086ffl<7)7° 

ffiSS* < 3$V.^#Tl^ (III— ^ 
P-y^J:b)o Zfti;*8086fcA,A N 



3861Z LT fc'&O^&SOTA^ A N 
(*'<-3t::L"C)<7>+TlJ r ftttfc** 
3 K*2. y°n 7=iLXln tf U lift L 

SHiS^ttiA, £ < H32fc'>y h 
CPUT'fe -5 386tZ t r> X % 0>JSl » 
(i A— fS^o T u § " £ tth i o 

£^-)<7)*k 286^386^1^(7) 



o{zSft^flUCJR«>P>nTi^<7)^ 
flfoHZt MS-DOS(8086)-LT*fc$ 

n^SoLfrUMS-DOSfcl.^* 
dft<b<7)77 h £fFS<7)ti*£t*^ 
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K -5^ !■/*□#£ 



ipOGHAMptJSE 



•7 rfr&JSfc&frfc < T(J Utfc^ 
U l/OKH&CLTfc, *-f>T£ 

*fH¥c i > i; r> tz 'J L x tttfc** 

X, ^(Jv^fA^oKtl 
•5 J: t£tel"<J]s<n)\s—?- > £ X 
g7>X#*r& < Tl*W«Ctv?>*f 

£**,» 286^386(3(2 (M©v 

h<n7f-k7><nwt&*m&t%& 
fifth** 

£ tz, 6sooocnmx-im l fco.- 
+f-^E— k £ *— / <—y <-f if— ^ 

- K©<fc a ttfHINftfrd b(3& 
IbL/z^fe^LXUX, &5? 
^^*<*^Lfc'J LXfe(5*r<73? 

S^l^Sx 68000X(2 2*11(73 
#*# u^;u L &$A*9Ctt L X, 
286, 386X(2U 0(3413:^ fc (7) U 

Jfefc 8086(73[I]X r Qo£7 L 

;&& vjU7^7^MiI£ ; fT&-7 
%g-n (2 £ x fe » fc^lSrc* 5 
££**&**$■ ft-tf&b, AS^ 
^^A^Krf^LT, ^E'J-ii© 
& -3 "6 ~ r> *> 13-r '? v * &$tfii£ 
##;M,XUr>7c£L2 7o fe? 

M > h H2 ^^i^T^-^nxi^ 

&^CPUX(2, yXrA(7)}|9t 
^Xtf^fJ — $P£l3ftJPS#fct|£ 




PC-9801 DA 



XtttJ]bftX^ft(2, **STfc* 

©-tz ?v > h FTOja^s-sit 
y^ i j-±.i3i/o^ieL^y^ 

'J -V 7 7° K l/0£&ffl L XU3 
v^7^A(7)tl-g-T'(2-fe^V > h X 
t^£ftXl^(7ftv2, c?b(3£ 

^*fc& v t>3Vfcf3« 

fcX^T; 3:3.$X286, 386(70 
}#-?Xl^E- K £808611^ 
«-r V £ A^Sfc©^— K £ A^ll ^X 

ftfes^ 3ft%ctt*>*«Lfc 

^SiTtf&So 8086S£E-Kv2V 
TJtrE- K (H^E— K), *3fc<73E 

- k(27°p x^ h ^- f am* 

-K)W^(7)X&£ X&frlTX 
- " *r b (2* -7 # < ©X11& L 4 

1^2 7 (3 
286, 3861 jra&Ait&*> 'J iz 

5„ 1"tob*>* 8086(73»(3& -3 

T^&fcttT^ fAi2cn^^ii/f 
i:So f^i:7°pf^ hE-K 
XSdfFf n(22 ^ fc © fcS&tetz 
3:^^)^(2^(3 3;^^^!! fci* 



cx<r*^a^\^ 



ousha 
popa 



Iv^o^ 



-/^sss*^>a 



b~;7^-F*3§£7$'77l3U3:ofc9, tBUXSfcD 
TSpush/popffl7^-«o AX, BX, CX, DX, BP, 



enter 
leave 

bsr 



MC6BO0O©(siri»Wlvfclink/unlinkfi^£flSlfc<*:5 
&=&©"£, £z>rz>\zZ5>v?7[s-k%±m?Z>m%c 

£&o tst>ftijti(iffi^» < r tree 

RTffit: 7 si3iq]^or^^-rso 680oo©bsr(77> 



IBMPS55/Z 



Wt£ I * A\, C -o *> (73 (5 -5 ^3^(73 1 

^ox^-s^^x(2m;i^^^r 

^XZ(73SS7 P P7-v' h^E-K(3 

m^r z z tt£<tzrrzt c* 

0S/2i: 1^-5 286, 386ffl©DOS 
4^*X(2 U ^7U^- KTIOTW^t 
^TS-b/z^^:, MSW(v->>>; 
t— ?* "7— h>y^?- (73PE 
(t'-y h0)?r-tz-y hL,7°Px^ h 

*- K(3^r-rSo 

£X, 386(73^-^(3(2? b(3-K 
J® 8086^— K £ UV-5 OtffoZo Z 
tilJ7°nf^ h E- K©TX 
8086(73 7° P if 7 A ^ffi^-b 6 £ 

i^e-K(733:£X, zcnffim* 

f^O £^£fc<738086<73 7°P?*7A 
?:[n!^(3^fflX# -l)(73^ MS- 
Windows3. OX (2386V v >^ffl 

^H51X# tzWffitS.<»X'tb% 

zzSixm.A.x^x, &£$m 

l3SofciffeUl>/)^ LM'Uo 
r 286^ ^386t frl^X % (t t\ 
80l86-oX(73(2^l^(73? j^ tft 

ZS&t>3BS£.lt'>L&m<n&i b 

<nt£<ntz •ffi61]^3l^9 1, 801867 

X^^(73(28086CPUi: LX(73^ 
tl©(5*\ IIJfJiA^-P>KP-7 
— *>DMAn> hP — 7 — ^1^7 

tzmzxnwm. iT^fcHiL/: 

CPUX, feot*>^>Cl^*> 

^» "5 i: , IBM-PC£fFU ^f < f^. 
tz#>iZ±£titz<nX$>Z> %tuz 
51 # ^X. 286^ 386(2 CPU £ LX 



Z-=E 


Zy£7©—ffll 


setu24: pusha 






call 


iniprn 




tat. 


si. offset fdata 


Idlchp: iov 


dx. [si] 


:>r^3-r-'Bl^a* 


or 


dx,cx 




jz 


ldlpes 




■ov 


al.lbh 




call 


putpm 


;TV>? -■%¥&* 


■of 


al.2bh 




call 


putprn 




■0V 


al.dh 




call 


putprn 




■ov 


al.dl 




call 


putpm 




inc 


si 




inc 


si 




push 


si 




call 


convbp 


\r-9-m 


■ov 


si. offset fbuf 


■ov 


ex, 72 




ldlplp: KW 


al. [si] 




call 


putpm 




inc 


si 




loop 


ldlplp 




POP 


si 




■ov 


al. 4 




call 


putpm 




add 


si, 72 


W=r-9<r>m 


j»p 


Idlchp 




I d '.pes: popa 






ret 







%te±vn&±i£^nMm 
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?-kftim 1 
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"t J 'L>lZJt#>T # fc ~ (7) =1 -7— tz 



m&[z-Di\z 

7;nf'j XAiip >t°3.— ?— 

(7) 7° D ?*7 A £fF3_L"C— # A^ 

f> ft t ** % & Z (fimMt^MX 

algorithm 
£#<o itSRT *£>£#:£>£ £^ 
o fc «fe o fcjfefcti, o i U -*5fiU 

-<7)7°P ^7 AlZ fe&Tte S £ - 
£ t£<ntz*i3\ &t£K 7°p ?' =7 v— 

ss^ciffc < fi^-5 T'jua u xa£ 
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$WM $ ntzmmzm < tz^<n- 

fc*A,fi&7Tl.*57./Urf>jXA£U 
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7°p ^7 A &ffcSJLT— # Mfc 

■&%* £°<nt 9 iz*t#-g-;bit*itf 
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tefeWCftftfettClbTft < It 
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it t =b fc*75fcie&&0) Z\ £ T\ (? 
< fc^*ft&«A,flh>Tl** K 2 N 

i^i^&T'.'urf'JXAiz 



itiXZtzVLtzhi >P&S>lZ&fs 
MSX<7) v - j. 7 )\S&$- i X'(T> Z (7) 
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100 


DEFINT A-Z 






110 


SCREEN 1. 1 


COLOR 15. 1. 1 :CLS 


120 


KEY OFF:GOSUB 210 




130 


X=120:Y=120 




140 


PUT SPRITE0, (X, Y), 15.0 




150 


S=STICK(0) 






160 


X=X-(S > 1 


AND S < 5) + (S > 


5) 


170 


Y=Y- (S > 3 


AND S < 7) + (S = 


1 OR 


2 OR S = 8) 






180 X=X-(X=-1)H 


(X=240) 




190 


Y=Y- (Y=-1)H 


(Y=170) 




200 


GOTO 140 






210 


A$="":FOR 1 


=0 TO 15 




220 


READ B$:A$= 


A$+CHR$(VAL("&H 


"+B$) 


230 


NEXT : SPR ITE$ (0) =A$ : RETURN 




240 


DATA f f, ff. 


f f, ff. ff. f f, ff, 


ff 


250 


DATA ff. f f. 


ff. f f. ff. f f. ff. 


ff 




s = 
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-T"±T**<7) 8 ^fp]tZli*^S 
b<F>tTZ>o IXTlt l ) * r- 1 <7)|£ 

100g3^IS<7)^W 
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^lt. Z(Dy°n7 : 7L.Xi^i^m. 
*^^SU Xtb % £ «t S t^feo 

nmttz±x— mm&zKz, 

110 MSOXBMit 

SCREEN 1 ^f IJffl U 3t^(7)-fe 

^-a ^S^fe^HtzLTil®^ 

iWztbiz, ftfeoyfflmxwifrti 

U7"P7 7A^J;<^(t?. m 

«r-5{tT«tt\ 

120 a®(7>W^L xy^-f K7) 

77>^V3 >*— 0)^£>S 
LT210firA^ifei5^7*7-r h 
^^(7)-7-7';u— f 1 > ^r P — ;i/fS„ 
130 gm^«<7)^^b 

g«<7)*J]^J^S«: (120,1 20) (Z 

140 ifiK7)li®fii^ 

&m*w£Ltzimizm< t 
c^* 



150 l3-V)l>*~(Dm*MV 

zviUfr* 

S=STICK(1 ) 

tttlii. v3-T7.7-f -y^iz 

S=STICK(0) OR STICK (1 ) 

160 — 170 g}SS&1I<7)M#f 

73 - V ;U * - ?rI^^15 7 fcffl S 

180~190 tt^ttiL^i 

viz^ir^o zzxbWm^* 

200 >>r wu-yo$^itzM5 

210—250 X7°7-f hOftJJOMb 

7x7°7-r h(7)/N°^— >^r^:*-r 

Sit 7*^— ^ >o DATASlCOrt^^ 

s^-rnifx &WtffM*&.7L%z\ 

£i$XM%«, 

ZXs C(7)7°P^*7AT#fog 
i:-3 < <7>(i16(tfTA^190?T£T' 
(7)|^l5tL:^^i^^o tiilit^ 
7S<«9i:, IRSCiLT*^#^J 

PRINT 3=3 

T^ctOo- 1 fcT'fcfao S^c 

PRINT 3=2 
<7)J§£-( J t Xtz t&lo It I) 
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pOGiAMIfOUSE 



100 DEFINT A-Z 

110 SCREEN 1.1:COLOR 15, 1,1:CLS 

120 KEY OFF-.GOSUB 210:GOSUB 260 

130 X=120:Y=120 

140 PUT SPRITE0. (X, Y) . 15,0 

150 S=STICK(0) 

160 X=X+SX(S) 

170 Y=Y+SY(S) 

180 X=X-(X=-1) + (X=240) 

190 Y=Y-(Y=-1) + (Y=170) 

200 GOTO 140 

210 A$="":FOR 1=0 TO 15 

220 READ B$:A$=A$+CHR$ (VAL ("&H"+B$) ) 

230 NEXT:SPRITE$(0)=A$:RETURN 

240 DATA f f, f f, f f, ff. ff. ff. ff. ff 

250 DATA f f, f f. ff, f f. ff. ff. f f. ff 

260 FOR 1=0 TO 8: READ SX(I) :NEXT 

270 FOR 1=0 TO 8: READ SY(I) :NEXT 

280 RETURN 

290 DATA 0. 0. 1. 1. 1. 0. -1. -1. -1 

300 DATA 0. -1. -1. 0. 1. 1. 1. 0. -1 



IEU^§£-(JI)tt- 1 \Zs ffilii^ 
xi^*§i^(l&)ti o tmzmtdo 
1 61WtA^ b 1 90frT-« :«:t^ 
*iJfflLTJHflcDM$f£s (i^fctSL 

mmttm-fimt basics y 
it if, iz-ni.br> tm&izmm 

'j* h 2^^T^ct?o fr#^£ 

Mili^cWiSk 'J * h 1 a: m \z 
[zts-oX^&tfs 160, 17GWJ 
7. h 1 fctiil^-ti^o £/c260 

m l x i#<Dj£4i£M$f l t i ^ 

<7>£f„ 26(Mri^W9-/^— ?■> 
^ * -5 IC5IJ SXfc J: t/SYl J, »— 7 ;i/ 



SX(6)=-1,SY(3)=1 
T'*5frib, 160, 17WT(7)MiEIT' 

xiili- 1 ; y&HIJ 1 tfiq&c* 

~<7)«J: -7 (Z|E5IJ(Z L t oTfi^ 

bfrUs^yizftALTfc^T, 
^-ft£=8P*IJlfcco*r;b u tzte-5 ^ 

h 4 ^TUfctflll&r * * -f "7 C7) fc 
CD fe , (5^A,^f**C<7>ct ^ *£%&, 
*t->x\.^z><nt± ~t^col^T 

tj#-§«Tt¥ l < mm l d: •? o 

T#;LT<^t f-fli'J* h 3 

(7)>jfch,£fcoTi>bW::l\, 

100 »»§SE»0>Mx SOU A* 

31 Ofrfr b t& i £ V- ~7*)\/-3- > £ 

noTOtftfJmfrft 

1 20 WBMtn>—7- xnno'tz L 

::b i J7 h ztmiZo 
1 3 o rnmmit* m i j &#!* «t 



»JHh3 g«#65it-Ol/»6»Ur»5 

100 DEFINT A-Z:ON STRIG GOSUB 310 

1 1 SCREEN 1,1: COLOR 1 5. 1 , 1 : CLS 

120 KEY OFF: GOSUB 210: GOSUB 260 

130 X=120:Y=120:SF=0:STRIG(0) ON 

.140 PUT SPRITE0. (X. Y) . 15,0 

*1 50 S=STICK(0) 

160 X=X+SX(S) 

170 Y=Y+SY(S) 

180 X=X- (X=-1) + (X=240) 

190 Y=Y-(Y=-1) + (Y=170) 

195 IF SF THEN GOSUB 330 

200 GOTO 140 

210 FOR 11=0 TO 1:A$="":FOR 1=0 TO 15 

220 READ B$:A$=A$+CHR$(VAL("&H"+B$)) 

230 NEXT:SPRITE$(II)=A$:NEXT:RETURN 

240 DATA f f. f f. ff. f f. f f. f f, f f. f f 

250 DATA ff. f f. ff. ff. ff. f f. ff. f f 

255 DATA ff. ff. f f, f f, f f, ff. ff, ff 

256 DATA ff, ff. f f. ff, ff, ff. ff, ff 
260 FOR 1=0 TO 8: READ SX(I) :NEXT 
270 FOR 1=0 TO 8: READ SY(I) :NEXT 
280 RETURN 

290 DATA 0, 0. 1, 1. 1. 0. -1. -1. -1 

300 DATA 0, -1, -1. 0, 1, 1, 1. 0. -1 

310 IF SF THEN RETURN 

320 SF=1 :MX=X:MY=Y -.RETURN 

330 MY=MY-8 

340 PUT SPRITE 1. (MX. MY) , 8, 1 

350 IF MY < -16 THEN SF=0 

360 RETURN 



140—200 y-r wu-y 
y* h rtn\z :0 ttt£i,w$ftX' 

mm~ i iWtf : fet±T : b£$, 33Wt 
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210—256 x^'f \<rmmt 
26o~3oo mmw5\\<rmmt 

310—320 aiUJ&*^— y-> 
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330—360 3i<7)^«^ff 

^mnmh-fiMi u 7. vztm 

tZ^Mb-t^'X^Zo tztzLWffi 
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SHORT PROGRAM HOUSE 



CRAD 



1H CUI.UK 4.7:_ KANJ1 

20 CLEAR I0000:GUSUB 2430 

Mill ' 

110 GOSUB. 1400:GUSUB 1420 : LOCATE 7 2"PR1 

NT "ig H 44 ifl H 

Mil GOSUB 1450 

130 LOCATE 20,1:PRINT USING "(##&) # 

#«Cf ##«Cfc) & »":«*1;N+1 + («O0).(H-N 

);L+1;0ID$(" -/-(• mm", «• 4 + 1, 4) 

140 GOSUB 1470:Y=0 

150 LOCATE 0,22:PRINT SPC(60):PLAY "V10O 

5464° 

160 IF K = THEN LOCATE 0,19:PRINT ' i] - 

I s o-> sk m » a k % ct) v , l o a u a- # - p * 

iliSLT f-' 3 n ! 

170 ' 

180 A=USR(0) :0=B(Y) :L0CATE 1 9 . Y (0) : A$ = ] N 

PUT$(1) :A=ASC(A$) :C=FNA(A) :S=FNS(A) 

140 IF K = AND (C<9 OR C)10) THEN 180 

200 IP C>0 THEN PLAY " V 1 0U6C64 " : ON C GOT 

320. 350, 390,520,570.630,730. 10 20, 1 110. 
1660. 100.1320, 1340 

210Y=Y+(S=1)-(S=5):Y=Y+((Y>K-1)-(Y<0)). 
K 

220 IK 4032 THEN 180 

230 ' 

240 A$="":LOCATE 20,Y(Q):LINB INPUT A$:P 

LAY "VI0O4A64 

250 YC=CSRLIN-1:A=LEN(A$):G=0:Q=B(Y) 

260 IF Y(0))YC OR (Y(0)=YC ANO A>60) THE 

N 100 

270 IP Y(Q)+E(Q)-1<YC THEN IF (YC-Y(0)+E 
(U)-l)»(61+P-iy-20))A THEN 100 tiLSE G = l 
280 IF 4=254 THEN G=l 

2y0 IF S(U) ANU A)0(O) THEN A$=LEFT$(AS, 
H(«J) :G=1 

<00 AS(0(L),0)=4$:Y=Y+1:Y=Y+(Y=K).Y 

310 IF G THEN 100 ELSE 170 

3 20 ' 

^0 IF = L AND H<)0 THEN GOSUB 1490:0=0- 

A 

340 L=L-1-(L=0).(0+1) :GOTO 130 
350 ' 

360 GOSUB 1490:1F A THEN BEEP:GOTO 170 
370 0=0-(H=L) :L=L+1 :1F = 50 THEN PRINT B 
EEP:0=0:L=0 
380 GOTO 130 
390 ' 

400 Y=L:GOSUB 1400:LOCATE 3,2:PRINT W$ 
410 LOCATE 0,24:PRINT " f( A ft T fcfj tyj 
H-y ";SPC(38) ; :C = 0:GOTO 460 

420 A$=INFUT$(1):A=ASC(A$):C=FNA(A):LF C 
=4 THEN 100 

430 IF C=3 THEN GOSUB 1070: IF C = THEN 3 

y0 ELSE R = l :U=Z-Y:GOTO 470 

440 IF (C=l OR C=2) AND M>4 THEN 460 

450 GOTO 420 

460 Y=Y+(C=]).10:U=4:R=0 

470 KOK 1=0 TO U:Y = Y+UY;H)-(Y<0)J.IH+1) 

: LOCATE . 1*4*3 

480 IF R = THEN PRINT USING '#» ":¥+!• 

4y0 FOR .1=0 K) I4:0 = R(.J) 

500 IF H(0) THEN S$ = "ft +SPACES (H (0 ) -2) * " 

ft ":A$=A$(0(Y),U) :1F R = THEN PRINT US1N 

G S$:A$: ELSE LPR1NT USING S$;A$; 



510 NEXT:Y 
=0 THEN 4 2 
5 20 ' 
530 GOSUB 
54 IF W T 
I THEN NEX 
STEP -]::R 
550 A =0(49 
=0(1-1 > : NK 
560 FOR 1 = 
) . H (l ) ) : N E 
570 ' 
580 GOSUB 
590 LOCATE 
::GOSUB 13 
ti0 IF W T 
) THEN NEX 
J)=R(J+1) : 
610 A=0(L) 
'I :0(49)=A 
620 FOR 1= 
:H=M-l-(»= 
630 ' 

640 LOCATE 
650 PRINT 

#. V " :SPC 
660, LOCATE 
) :C = FNAU) 
670 Y=Y+(S 
K 
680 

6 40 

70 IF C=5 

7 10 IF C = 1 
SUB 1610 : G 
720 GOTO 6 
730 ' 

740 FOR 1= 
750 IF E(0 
61+P»19)-2 
760 NEXT:L 

0.22:PR1N 
770 PRINT 

7-80 LOCATE 
) :C=FNA(A) 

7 y Y = Y + ( S 
K 

8 00 IF C=6 
2 2 : P R 1 N T 
810 IF C=7 

IH C = 8 



IF C = 3 
IF C = 4 



= Y+1:NEXT:PLAY "VI 005464" : IF R 
ELSE 100 

I4y0:lF A OR = 49 THEN 170 

HEN FOR 1 = TO 4y: IF K ( J J O0(L 

T ELSE A=R(49) :FOR J=49 TO 1 + 1 

(J)=K (J-l ) : NEXT :K (1+1 )=A 

) :FOR l=4y TO L+l STEP -1:0(1) 

X I :0(L+1 )=A 

TO 14:A$(0(L+1) . B ( 1 ) ) = A$ (0 (L 

XT:0=0+1 :L=L+I:G0T0 130 

14y0:lF A THEN 170 

0.22: PR INT " fj - MlffllJ-L" 
60:GOSUB 1420:1F A=0 THEN 150 
HEN FOR 1=0 TO 49:1F K(l) <>0(L 
T ELSE A=R(i) :FOR J=I TO 48:R( 
NEXT:R(4y)=A 
:FOR I = L TO 48 : ( 1 ) =0 ( 1 + 1) :NBX 

TO 14:A$(0(49),B(I))="":NEXT 
L):GOTO 130 

0,22: PRINT " -/ - b « * fftf 
"■** H /h $ H <S»y> £> mm 
(26) ; 

19,Y(Y) :A$=1NFUT$(I) :A=ASC(A$ 
:S=FNS(A) 
=1)-(S=5):Y=Y+((Y)K-1)-(Y<0)). 

THEN GOSUB 1420:GOTO 150 

AND W THEN GOSUB 1570:GOTO 10 

THEN W=0:GOTO 100 
OR C=2 THEN GOSUB 1590:W=1:GO 
OSUB 1420:L=0:GOTO 130 


TO 14:S$(I)="":Q=B(1J 
) THEN LOCATE 20, Y (Q) : A = E (0) » ( 
1:PR1NT SPC(A-(A)255)«(255-A)) 
OCATE 27,2:PR1NT "* ff ": LOCATE 
T " til 'M <7i tk ft It 
" &. h &.T ft tl -DC * - 
^ «b h Um #. V ".; 
20.Y(Y) :A$=1NPUT$(1) :A=ASC(A$ 
:S=FNS(A) 
= I)-(S = 5) :Y = Y+UY)K-1)-(Y<0)). 



820 


830 
840 



THEN GOSUB I 590: W = 2 : LOCATE 0, 

fc* <\> :GOTU 8y0 

THEN 100 

AND W THEN GOSUB 1570:GOTO 10 



IF C=y THEN W=0:GOTO 100 

IF N(0 OR (C<1 OR C)5) THEN 780 

850 LOCATE 20 . Y ( Y ) : PR I NT HlUSCJ^h 0. 

I- *0 -«C -1--K ",C7-6,7) 

860 T=0:X1=27:Y1=Y(Y):X=8:GOSUB 1710 

870 IF E$ = "" THEN LOCATE 20 , Y ( Y) : PR 1 NT S 

PC(6):G0T0 780 

880 S$(8(Y))=E$:N(B(Y))=C:G0T0 780 
840 

')00 FOR 1 = TO 14:0 = B(I):S$ = S$(Q):IF S$ = 

AND N=-l THEN 1010 
410 C=N(0):B=N:D=-1:1F C<3 THEN Y=I:GOSU 

920 FOR J=0 TO B:A$=A$(0(J),0) :0N C GOTO 
930,940, 950,960. »70 

430 A=A$)=S$:GOTO 980 
940 A=A$<=S$:GOTO 980 
950 _ KINSTR(A,A$,S$) :GOTO 'JJHt 



960 A=A$= S$:GOTO 980 
970 A=A$<)S$ 

980 IF A=0 THEN N=N-1:IF D=-l THEN D=J 
990 IF A AND D<>-1 THEN SWAP 0(J),0(D):D 
= D + 1 

1000 NEXT 

1010 NBXT:L=0:GOTO 100 
1020 ' 

1030 GOSUB 1070:1F C=0 THEN GOSUB 1420:G 
OTO 150 

1040 LOCATE 0,0:FOR I=Y TO Z:FOR J=0 TO 
14 

1050 0=B(J):A$=A$(0(I),0):IF A$<>"" THEN 
LPR1NT AS 
1060 NEXT:LPR1NT:NEXT:G0T0 100 
1070 LOCATE 0,22: PRINT "WfltH^-MttHJ 

■c m w u a r *» v Be h - flci 

1080 PRINT "■*?«> S" ;SPC (54) ; 

1090 X1=34:Y1=22:T=0:H=1:X=5:GOSUB 1710: 

IF C=0 THEN RETURN 

1100 X1=42:Y=Z-1 :H=Z:GOSUB 1710 : Z=Z-1 : RE 

TURN 

1110 " 

1120 L$=T$ 

1130 LOCATE 0,23:PRINT "SAVE LOAD ^46 

h ":SPC(42) ; 

1140 A$ = 1NPUT$(1):A = ASC(A$) :C = FNA(A) : IF 
C=3 THEN T$=L$:GOTO 100 

1150 IF C=2 THEN GOSUB 1520 

1160 IF C=l OR C=2 THEN LOCATE 0,22:PR1N 

T H1U$( SAVEI.OAD",C. 4-3,4); :GOSUB 1360:1 
H A=0 THEN T$=L$:ELSE ON C GOTO 1180,125 



I 170 GOTO 1130 

1180 ' S 

1140 OPEN T$+".DAT" FOR OUTPUT AS#1 

1200 PRINT #1,H$:PR1NT #1,0, P.W.N 

1210 FOR 1=0 TO 14:PRINT # 1 , K$ ( I) : PRINT 

#1,S(1) ,N(1),E(1),HU),B(1) 

1220 FOR J = TO 49:PRINT # 1 , A$ ( J , I ) : NEXT 

:NEXT 

1230 FOR 1=0 TO 49:PRINT #1 ,0 (I) , R ( I) : NE 

XT 

1240 CLOSE #1:G0T0 100 

1250 ' L 

1260 OPE-N T$+" .DAT" FOR INPUT AS#1 

1270 INPUT #1,H$:1NPUT #1.M,P,W,N 

1280 FOR 1=0 TO 14:1NPUT # I , K$ ( I ) : INPUT 

#1 ,S(1 ) .0(1) ,E(1) ,H(1) ,B(1) 

1240 FOR J = TO 49:1NPUT # 1 , A$ ( J , I ) : NEXT 

:NEXT 

1300 FOR 1=0 TO 4y:INPUT # 1 . ( 1) , H ( 1 ) : NE 

XT 

1310 CLOSE #1:L=0:GOSUB 1540:GOTO 2190 

13 20 ' 

1330 GOSUB 1490:0=0-A:LOCATE 0,22:PR1NT 

" is Y V 7f h 1} - h. N 0.":Xl = 25:Yl = 22:H = 

I:X=5:G0SUB l 71 : L=Z- 1 : GOTO 130 

1340 ' 

1350 P = -(P = 0) :GOSUB 1540:GOTO 100 

13 60 ' 

1370 PRINT "X t> V> l> T'-T 1}- ■! ":PR1NT "(J 

t' t> !-> t ":SPC(48) ; 

13 80 A = USR(0) :A$ = INPUT$(1) :A = ASC(A$) :A=F 

NA(A) :1F A)2 THEN 1380 

13')0 A = -(A = 1) :LOCATE 0,22:PR1NT SPC(60): 

RETURN 

1400 " 

1410 _ CLS:PRINT USING " 7TU44 IS 

&J * t I. ft SJ":T$:0$ 

:RETURN 

1420 ' 
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lOGEAMmOJSE 



1430 LOCATE 0, 24 : PRINT " ffi A & T - Sfc 

ffi ^ ft] |fc y - 1- ft SB HI »l si & 

I£5g"; :RETURN 

144a ' 

1450 FOR 1 = TO 14:Q=B(1):IF E(0) THEN L 
OCATE 0.Y(Q):PRINT USING "II S 

S|";1+1;K$(0) 
1460 NEXT:RETURN 

1470 FOR Y = TO 14:Q=B(Y):IF E(0) THEN L 
OCATE 20,Y(U.):A = E(O)»(61+F'19)-23:FK1NT 
USING "&"+SPACE$(A-(A)252)«(252-A))+"&": 
A$(0(t.) .0) 
1480 NEXT:RETURN 
14y0 -' 

1400 A = 0:FOR 1 = TO 14 : IK A$ (0 (L) , I ) = " ' 
THEN NEXT:A=1 
1410 RETURN 
1 420 ' 

1430 LOCATE 0.22: PR INT " 7 7 -\ IV & it " ; SP 
CU6) :T=0:Xl=14:Yl=22:X=b:GOSUB 1710: RET 
URN 
1540 ' 

1550 IF P THEN _ KANJ13:W1DTH 80:SET AOJ 
UST(4,5) :RETURN 

1560 _ KANJI2:W1DTH bl:SET ADJUST (-3 , 5) : 
RETURN 
1570 ' 

1580 FOR 1 = TO 49:0(1)=RU) :NEXT:W=0:RE 
TURN 

1590 IF W = THEN FOR 1=0 TO 49:RU)=0(1) 
:NEXT:N=M 
1600 RETURN 
1610 ' 

1620 0=H(Y):FOR L1=0 TO N-1:F0R Jl=il+1 
TO N 
lb<0 IF A$(0(il),0) (A$(0(J1),0) THEN SWA 

P UUD.IKJl) 

1640 NEXT: NEXT: IF C=2 THEN FOR 11=0 TO N 

/2:SWAP 0(11) ,0(N-1 1) :NEXT 

1640 RETURN 

16 6 ' 

1670 GOSUB 1400:Y=0:T=1:PR1NT " # - K 

1680 LOCATE 7,2:PR1NT ' iB H * 

W> tS «. ■(■ VL *r * MS 
1690 GOSUB 2290:GOSUB 2330:GOSUB 2340 
1700 LOCATE 0.2-!: PR I NT "#A ffl H* # *1J 

ft r ": :PLAY ' V10O5A64" 

17 10 ' 

1720 E$="':1=0:IF I THEN GOSUB 1970 

IV.0 LOCATE XI + I .Yl :A$=INPUT$(1> :A=ASC(A 

$) :S=FNS(A) 

1740 IF J=0 AND T THEN ON FNA(A) GOTO 20 

i0.2070.2120. 2170 

1740 IF X=5 AND FNA(A)=1 THEN C=0:RETURN 

1760 IF 4=13 AND X=8 THEN RETURN 

1770 IF A=13 THEN IF E$ <> " " THEN 1870 EL 

SE IF T THEN X=X+1:G0T0 1710 

17H0 IF 1=0 AND S AND T THEN GOSUB 1970 

1790 IF A=8 AND 1 THEN _ KLEN(B,E$):_ KT 

YPEUl.ES.B) :i = L-l-D:E$ = LEFT$(E$.I) :LUCAT 

E X 1 + I .Yl :PRINT SPC(2) 

1800 IF A(32 OR A=127 OR 1=20 OR (X = 6 AN 
D 1=8) THEN 1730 

1810 IF X>0 AND X(5 AND K$(0)="" THEN 17 
3 

1,320 IF X=l THEN IF A (48 OR A>49 THEN 1/ 
J ,0 ELSE E$=A$:GOTO 1870 

1830 IF X>0 AND X(b THEN IF A<47 OR A) 58 
THEN 1738 ELSE IF 1=0 THEN LOCATE XI, Yl 
-.PRINT SPC(2 + T> 
1,340 E$=E$+A$:1=1+1:L0CATB X1.Y1:PR1NT E 

$: 

1840 IF (X = 2 OR X=4) AND 1=3 OR X=3 OR ( 

X=5 AND 1=2) THEN 1870 

1860 GOTO 1730 

1870 ' 

1880 Z=VAL(E$):ON X GOTO 1900,1910,1920, 

1930,1940. 1950, 1960 

1890 K$(0)=E$:X=1 :GOTO 1710 

1900 S(Q)=Z:X=2-(Z=0):GOTO 1710 

1>M0 IF Z>254 THEN 1710 ELSE M(U)=Z:X=3: 

GOTO 1710 

1920 IF G-E(Q)+Z>19 OR Z>5 THEN 1710 ELS 




E E(Q)=Z:X=4:G0SUB 2330:GOTO 1710 

1930 IF H+Z>220 OR Z=l THEN 1710 ELSE H( 
0)=Z:X=4:GOSUB 2340-.GUTO 1710 

1940 IF Z(H OR Z)M+1 THEN 1710 ELSE RETU 
RN 

l'*40 T$ = K$: RETURN 

I960 H$=E$: RETURN 

1970 ' 

1480 GOSUB 2310:Y=Y-(X=5) 

1-I4D X=X-(S=3)+(S=7) :X=X+((X> 4)-(X(0))« 
4:Xl=X»6+3-(X>0)«17 

2000 LOCATE 0,22:ON X+l GOSUB 2240,2250, 

2260,2270,2280 

2010 Y=Y+(S=1)-(S=5):Y=Y+((Y>14)-(Y(0))» 

1 4 : Y I = Y + 3 

2020 Q = B(Y) :RETURN 
2030 ' 

2040 FOR 1=Y TO 14:IF K$(B(i)) = '' THEN 
NEXI :GOTO 1710 

2050 FOR J = l TO 14: IF K$(B(J))(>'" THEN 
NEXT: GOTO 1710 

2060 A = B(.l):FOR K = J Til 1*1 STEP -1:B(K)= 
h(K-l) :NEXT:BU)=A:GOSUB 2290-.GOTO 1710 
2070 ' 

2080 IF K$(U) = "' THEN 1710 
209M LOCATE 0,22:PR1NT " JB H « W\ t» 3: L- " ; 
:GOSUB 1360 

2100 IF A THEN K$ (Q) = " " : M (Q) =0 : H (0) =0 : S ( 
U)=0:N(U)=0:E(ll)=0:FOR 1=0 TO 49:A$(I,Q) 
="" :NEXT:GOTO 1690 
2110 GOTO 1700 
2120 ' 

2130 LOCATE 2,Y1:PRINT ">":C=Y 
2140 LOCATE 0.22:PR1NT "BUti'fiSU 
!•• 3 n":HRINT " tit 5g " ; SPC ( 1 8) ; 
2140 LOCATE 2,Y1 : A$ = 1NPUT$ ( 1 ) :A=ASC(A$) : 
S=FNS(A):1F S THEN GOSUB 2010 
2160 IF A = 5 THEN SWAP B (C) , B ( Y ) : GOTO lb9 
ELSE 2150 

2 170 ' 

2180 IF T$ = THEN GOSUB 1520:LOCATE 0,2 

3: PR I NT " * -fctJ"; SPC (17): X1 = 8:Y 1 = 23: X = 7: 

GOSUB 1710 

2190 ' 

2200 W$ = " ":K = 0:FOR 1 = TO 14 : = B (I ) : H = H ( 

U):1F H THEN A = LEN (K$ (0) ) : W$ = W$ + LEFT$ (K$ 

(0) ,H)+SPACE$(1-(H-A)»(A(H)) 

2210 Y(OJ=0:1F E(OJ THEN K=K+1:1F K=l TH 

EN Y(0)=3:B=Q ELSE Y (Q) =Y (B) +E (B) : B=Q 

2220 NEXT:W$=LEFT$(W$,57+P»20) :G0T0 100 

2230 ' 

2240 PRINT " XB B « ti 20? & ":RETU 

RN 

2250 PRINT " «» it »7«=0 |g]S = r':RETU 

RN 

2260 PRINT ■•£¥*« 254 i£ ":RETU 

RN 

2270 PRINT " ft it -S fft" 19 & " :RETU 

RN 

2280 PRINT " *W it -S-lt- 220 & ":RETU 

RN 

2290 ' 

2300 FUR 1=0 TO 14:U = BU) : Yl = 1 + 3 : GOSUB 2 

3 1 : N E X T : R E T U R N 

2310 LOCATE 0,Y1:PR1NT USING "II & 

s s & » & * ttl";Y 

1-2;K$(Q);M1U$< " "1 $ Ifil S " , S (0) »4+ 1 , 4) ; MI 
U$(" ---"+SPACE$(4-LEN(STR$(M(0))) ) +STR$ 
(M(0)),S(0)»4+l,4),E(0);H(g);:RETURN 
23 20 ' 

2330 G = 0:FOR 1=0 TO 14 : G = G + E (I ) : NEXT : LOC 
ATE 39,18:PR1NT USING "##"; G : RETURN 
2340 H = 0:FOR 1 = TO 1 4 : H = H + H ( 1 ) : NEXT : LOC 
ATE 44,18:PRINT USING "III ": H : RETURN 
2 3 50 ' 

2360 BEEP:LOCATE 0,21:PRINT SPC(60):LOCA 
TK 0,21 :E = ERR:1F N0T(E = 46 OR E = 70 OR E = 5 
', OK E = b8 OR B=19 OR E=14) THEN ON ERROR 
GOIO 
2-170 IF E = 5b THEN PRINT " 7 T U * il- jfi % T 
tt^OtX li\t,%x 5r '&. 7L X 1-5V»":G0SUB 152 
0: RESUME 1130 

2180 IF E = 70 THEN PRINT "f U^'IJ ") t V 
.?. |i; /v : RESUME 1 130 



2-140 IF E = 53 THEN PRINT " 7 T U »' A ') *' ') 

i 3± ^" :RESUNE 1 130 

2400 IF E = bR THEN PRINT " T Of 1\ *' ffi A' -> 

•C Jf" :RESUME 1130 

2410 IF E=19 THEN RESUME 100 

2420 IF E=14 THEN PRINT "/t ') fi> M < % ') * 

L, 1i T , «HWA.flttLi:i<>t (• 3 >-' " : PK I N 

t a n v s % < % h «i m n t> h t> <n -csave 

L X I- ? !->" :S$="":A$="":RESUME H10 

24 3 ' 

2440 FOR 1=1 TO 10:KEYl,CHR$(l+4-(I>l)»9 

-U>4)-(l)b)-U>8)) -.NEXT 

2450 KEY 0FF-.UEF1NT A-Z : DEFUSR = &H 1 5b : P = l 

:GOSUB 1540 

2460 DIM K$U4),S$(14),A$(49,14), M (14) . 

H(14),B(14).Y(14),S(14),E(14),N(14) ,0(4 

9) ,R(49) 

2470 DEF FNA(A)=-(A=5)-(A=15)»2-(A=16)»3 

-(A = 17)»4-(A = 19)»5-(A = 20)«6-(A = 22W-U = 

23)«8-(A=25)»9-(A=26)«10-(A=ll)»ll-(A=24 

) * I 2 - ( A = 2 7 ) • 1 3 

2480 DEF FNS(A)=-(A=30)-(A=28)*3-(A=31)» 

5-(A=29)«7 

2490 S$=SPACE$(255):0N ERROR GOTO 2350 

2400 FOR 1=0 TO 14:B(1)=1:NEXT:F0R 1=0 I 

49:0(I)=1:NEXT 

2510 RETURN 




DANGEROUS WORK 



10 ' t C C C C 'DANGEROUS UORK 
HIDEYUKI YAMADA ))))3 
20 ' 



PRESENTED BY 



30 ' SCREEN : WIDTH 80 : KEY OFF 

40 ' ya*ti>?< 

50 CLEAR500 : COLOR 15,1,1: SCREEN5 : OPEN"GRP 

: "ASttl :DEFINTA-Z:DIMC>SC65):R=RND<-TIME) 

60 DS="00000000070067 057605 17062 10 1740 17 

1014303170461062406740377077706" 

70 FORI=0TO31 : D=VAL< "8=H"+M1D$CD$. 1*2+1 ,2 

) ) : VPOKE&H7680+ I , D : NEXT : COLOR=RESTORE 

80 SETPAGE0, 1 : L 1NEC0 . >-C255 . 2 1 1 ) , 1 . BF : S 

ETPAGE0.2:LINEC0.0)-C255.2 11 ) . 1 . BF 

30 FORI=0TO12:CxC0)=16:Cx<l)=lb:FORJ=2TO 

65 : READCS: C»< J )=VAL( "&H"+C$) : NEXT 

100 COPYCX.0TOC 1*16,0). 1 : NEXT 

110 ■ -9-fMl. ' 

120 VDPC 1 )=VDPC 1 )X0R64 

130 FORI=0TO13:FORJ=0TO1 1 : COPY<0 .0 >-<■ 15, 

15). 1T0C 16+1*16, 16+J*16),0:NEXTJ, I 

140 SETPAGE0.0:GOSUB560 

150 PRESET<72. 52 ):PRINT«1. "DANGEROUS WOR 

K":PRESET<96, 140):PRINTH1 ,"C 1991 )" 

160 PRESETC80, 155): PRINTH1 ."PRESENTED BY 

170 PRESETC69, 168) : PRINTttl ."HIDEYUKI YAM 

ADA" 

180 FORI=0TO1 1 :FORJ=0TO2:COPY< 16 .B )-C3 1 . 

15), 1TOC32+I*16,80+J*16).0:NEXTJ. 1 

190 COPYC 192.0)-C207, 15 ) . 1T0C48 . 96 ) . : XI 

=80 : X2=95 : GOSUB540 

200 VDPC 1 )=VDP< DXOR64:FORI=0rO2999:NExT 

:GOSUB580:X1=96:X2=1 1 1 :GOSUB530 

210 GOSUB600: X1=16:X2=31 : GOSUB530 : Xl=128 

: X2= 1 43 : GOSUB540 : GOSUB590 

220 FORI=0TO399:NEXT:X1=16:X2=31 : G0SUB54 

: FORI =0TO2999 : NEXT 

230 PSETC72, 103): PRINTttl . "PUSH SPACE KEY 

": 1FSTR1GC0)ORSTRIGC 1 )THEN240ELSE230 

240 ' STAGE 

250 GOSUB560 : SE= 1 : MS=0 : RESTORE2080 

260 READ M$,GB,EN 

270 M=3:K=0:EG=EN:CL=0: GOSUB 1 130:FORI=0T 

O9:FORJ=0TO1 1 :K=K+1 : CH=VALCMID$CM$. K. 1 )) 

280 COPYCCH*16,0)-<CH*16+15. 15). 1TOC32+J 

* 1 6 . 32+1*16). : NEXT J . I : X=2 : Y= 1 1 : GA=0 
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290 



ME I N 



300 S=STICKC0)ORSTICKC1 >:XX=X+CS=7>-<S=3 

):YY=Y+CS=1)-CS=5) 

310 IFSTRIGC0)ORSTRIGC1 )THEN650ELSEIFSTR 

IGC3)ORINKEY$="G"ORINKEYS=" 9 "THEN1070 

320 1FS=0ORS=2ORS=4ORS=6ORS=8THEN300 

330 ON S GOTO 340 . , 350 . . 360 . . 370 

340 Xl=160:x2=175: IFM=1 THEN390ELSEM= 1 : GO 

SUB470:GOTO300 

350 * 1=192:X2=207: IFM=2THEN390ELSEM=2 : GO 

SUB470: GOT 0300 

360 Xl=144:x2=153: IFM=3THEN390ELSEM=3 : GO 

SUB470 : GOTO300 

370 X1 = 176:X2=191: IFM=4THEN390ELSEM=4: GO 

SUB470:GOTO300 

380 GOSUB480:X1 = 16:X2=3 1 : GOSUB470 : G0SUB6 

1 : x=x.X : Y=YY : GOTO300 

390 P0=P0IIITCXx*16+4,YY*lb+4): IFP0=7THEN 

300ELSEIFPO=6THEN380ELSEIFPO=1 1THEN300 

400 IFPO= 1 30RP0= 1 0THEN300ELSE I FPO= 1 2THEN 

420 

410 GREEN DRUM 

420 Po=PO I NT C XX* 1 6+4+( C S=7 )-C S=J ) )* 1 6 . YY 

*lb + 4+US=l )-CS=5))*16) 

430 IFPO=6THEN440ELSE300 

440 COPYC48.0)-C63. 15), 1 T0CXX*16+C CS=7 )- 

CS=3j)*16.YY*16+CCS=l)-CS=5))*16).0 

450 GOTO380 

460 ' COPY 

470 COPYC XI , 0)-CX2. 15), 1 T0CX*16 . Y* 16 ) , : 

RETURN 

480 C0PYCX1 , 0)-<X2, 15), 1 T0CXx*16 . YY* 1 6 ) , 

0: RETURN 

490 COPYC X1,0)-CX2, 15). 1T0CX*16+SA*FF*16 

, Y* 1 6+AS*FF* 1 6 ) , : RETURN 

500 C0PYCX1 ,0)-CX2. 15), 1T0CX*16+SA*FF*16 

+DX* 1 6 . Y* 1 6+AS*FF* 1 b+DY* 1 6 ) , : RETURN 

510 C0PYCX1 ,0)-CX2. 15), 1T0CX*16+SA*FF*16 

+D> * 1 b*DL . Y* 1 b+AS*FF* 1 6+DY* 1 6*DL ) . : RETU 

RN 

520 COPYC xl.0)-CX2. 15). 1T0CX*16+SA*FF*16 

+Dx*16*CDL-l ), Y*16+AS*FF*lb+DY*lb*(DL-l ) 

).0: RETURN 

530 FORI=0TO7:COPYCX1 ,0)-CX2. 15). 1T0C64+ 

l*lb.36).0:FORJ=0TO199:IIEXTJ, 1 : RETURN 

540 COPYC xl .0)-CX.2. 15). 1T0C 1 92 . 96 ) . : RET 

URN 

550 ' ERASE 

560 L1NE(32.32)-C223. 191 ), 1 ,BF: RETURN 
570 ' SOUND 
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SOL - 



580 SDS="0807D007A80 1 0F20 10 1 0005C000D" : G 
OSUB630: RETURN 

590 SD$="B40FF00ADC050F0010 10 10204E00":G 
OSUB630: RETURN 

600 SDS="0000000000000F380000002C0 108":G 
OSUB630: RETURN 

610 SD$="0F007800 1C0C0F00 10 10 10200309" :G 

OSUBb30: RETURN 

b20 SDS="FF0FD60C2B080F20 10 10 10C05D00":G 

USUB630: RETURN 

6 30 FOR 1 =0TO 1 3 : SD=VALC "&H"+M 1 DSC SDS .2*1 + 

t , 2 > > : SOUND 1 . SD : NEXT : RETURN 

640 ' *IVTOi,'i- 

6bB FF=1 :EG=EG-l : lFEG<0THEN300ELSEGOSUBl 

130:ON M GOTO '660. 680. 670, 690 

6b0 AS=-1:SA=0 :TY=l :GOTO700 

670 AS=1 :SA=0 :TY=l :GOTO700 

b80 AS=0 :SA=l :TY=0:GOTO700 

b90 AS=0 :SA=-1 :TY=0:GOTO700 

700 PO=PO I NTC X* l 6+4+SA*FF* l 6 , Y* 1 6+4+AS*F 

F*16): IFPO=6THEN730ELSEIFPO=10THEN780 

710 1FPO=7THENIFFF=1THEN300ELSEGOSUB750: 

GOTO300 

720 IFP0=1 1THEN1FFF=1THEN300ELSEGOSUB750 

: GOTO300ELSE 1 FPO= 1 2THEN830ELSE I FPO= 1 3THE 

N 1 FFF= 1 THEN 1 020ELSEGOSUB750 : GO TO 1 020 

7J0 GOSUB580:COPYC96+TY*16.0)-C 1 1 l+TY*lb 

.15). 1TOCX*16+SA*FF*16.Y*16+AS*FF*16).0 

740 FF=FF+1: I FFF=4THENGOSUB750 : GOTO300EL 

SE700 

750 GOSUB600: FOR 1 = 1 TOFF- 1 : COPYC 16.0)-C31 

.15). 1T0CX*16+SA*16*I , Y*16+AS* 16*1 ).0 

760 FORJ=0TO 1 99 : NEXTJ , I : RETURN 



780 GA=GA+1: IFFF=1THEN790ELSEGOSUB750 

790 X 1 = 1 28 : X2= 1 43 : GOSUB490 : GOSUB590 : FOR 1 

=0TO999 :NEXT: XI =16 : X2=3 1 : GOSUB490 

800 1FGA=GBTHEN1 150ELSE300 

810 X 1 = 1 28 : X2= 1 43 : GOSUB500 : GA=GA+ 1 : DC DK ) 

=1 : 1FGA=GBTHENCL=1 : RETURNELSERETURN 

820 ' GREEN DRUM 2 

830 IFFF=1THEM1060ELSEGOSUB750 

840 DK=0 : X 1 = 1 28 : X2= 1 43 : GOSUB490 : GOSUB620 

850 Dx=0:DY=l : DF=1 : DK=1 : GOSUB900 : Dx=l : D 

Y=0 :DF=0:DK=2:GOSUB900 

860 Dx=0:DY=-l :DF=1 : DK=3 : GOSUB900 : Dx=- 1 : 

DY=0 : DF=0 : DK=4 : GOSUB900 

870 x.l = 16:X2=31:GOSUB490:DX=0:DY=l :DK=1 

: GOSUB940 : DX= 1 : DY=0 : DK=2 : GOSUB940 

880 DX=0 : DY=- 1 : DK=3 : GOSUB940 : Dx=- 1 : DY=0 ; 

DK=4:GOSUB940 

890 1FCL=1THEN1 150ELSE IFG0=1 THEN1020ELSE 

300 

900 DCDK)=0:PO=POINTCX*16+4+SA*FF*16+DX* 
1 6 , Y* 1 6+4+AS*FF* 1 6+DY* 1 6 ) 

910 IFPO=6THEN930ELSEIFPO=7THENRETURNELS 

EIFPO=10THEN810 

920 I FPO= 1 1 THENDL= 1 : GOTO980ELSE I FPO= 1 2TH 

ENDL=1 :GOTO950ELSEIFPO=13THENGO=1 :xi=i28 

: x.2= 1 43 : GOSUB500 : RETURN 

930 COPYC96+DF*16.0)-C111+OF*16. 15). 1T0C 

X* 1 6+SA*FF* 1 6+DX* 1 6 , Y* 1 6+AS*FF* 1 6 +DY* 1 6 ) 

,0:DCOK)=1 : RETURN 

940 IFDCDK)=0THENRETURNELSEX1=16:X2=3 1 :G 

OSUB500: RETURN 

950 GOSUB1000: IFPO=6THEN960ELSE1FDL=2THE 

NRETURNELSE930 

960 x 1 =48 : X2=63 : G0SUB5 1 : X 1 = 1 6 : x2=3 1 : GOS 

UB520:GOTO950 

970 • YELLOU DRUM 

980 GOSUB1000: IFPO=6THEN990ELSE IFPO=10TH 

ENGA=GA+1 : I FGA=GBTHENCL= 1 ELSEELSERETURN 

990 X 1 =32 : X2=47 : G0SUB5 1 : X 1 = 1 6 : X2=3 1 : GOS 

UB520:GOTO930 

1000 DL=DL+1 :P0=P0INTCX*16+4+SA*FF*16+DX 

* 1 6*DL . Y* 1 6+4+AS*FF* 16+DY* 1 6*DL ) : RETURN 

1010 ' RED DRUM 

1020 x 1 = 1 28 : X2= 1 43 : GOSUB490 : GO=0 : FORJ=0T 
015:R1=INTCRNDC 1 )*12 ) : R2=INTCRNDC 1 )*10) 
1030 COPYC 128. 0)-C 143. 15). 1T0C32+16*R1 3 
2+ 1 6*R2 ) : GOSUB620 : NEXT : MS=MS+ 1 
1040 IFMS=3THENG0SUB1 130 : GOTO 1090ELSE270 

1050 ' MISS 

1060 X 1 = 1 28 : X2= 1 43 : GOSUB490 : GOSUB620 
1070 COPYC 1 28. 0)-C 143. 1 5 ) . 1 TOC x* 1 6 . Y*l 6 ) 
. : MS=MS+ 1 : GOSUB620 

1080 PRESETC72. 1 08 ) : PRI NTH 1 . " — M 1 S S 
! — ": IFMS=3THENG0SUB1 1 30 : G0T01 090ELSE270 

1090 ' GAME OVER 

1 100 MS=0: FOR 1=0TO2999: NEXT :GOSUB820 
1110 PRESETC72, 108 ) : PRI NTH 1 . "- GAME uVER 
! -" : FOR 1 =0 T04999 : NEXT : GOTO 1 20 

1120 ' SCORE 

1130 PRESETC 16.8):PRINTB1 .USING"- STAGE 

MS MISS B I?)l*-- 8 -";SE; MS; EG: RETURN 

1140 ' CLEAR 

1150 PRESETC72, 108):PR1NTB1 , "= CLEAR 
! =" : SE=SE+ 1 : CL=0 : FOR I =0TO499 : NEXT 

1 160 GOSUB600:PLAY"V15O5L16GGDFEBO6C. " . " 

O 1 505L 1 6R64GGDFEB06C . " 

1 170 FOR I =0TO 1999: NEXT: IFSE=1 1THEN1 190EL 

SE260 

1180 ■ ENDING 

1190 FORI=0TO4999:NEx.T 

1200 FOR1=0TO105:L1NEC0, I )-C255. I ), 1 :LIN 
EC0.21 1-1 )-C255. 211-1 ), 1 

1210 FORJ=0TO49: NEXTJ, 1 : FORI=0TO4999 : NEX 
1 

1220 COPYC 176,0)-C 191 , 15). 1T0C 192,96),0: 
COPYC 192,0)-C207, 15 ) , 1 T0C48 , 96 ) , 

1230 EMSC 1 )="96989CE3209799FDE59C9ADEE4E 
A" 

1240 EMSC 2 )="ECDE9CDE95FC8FE0A 1202020202 
0" 

1250 EM$C3)="EFE092E2969AE9F693E59AE496D 
E" 



1260 EMSC 4 )="959AF996F39CFAE592A 12020202 
0" 

1270 EMSC5)="209FFAEFE3DE20E29bE9EFE9202 

0" 

1280 EMSC6)="F49DF08620E4F99AE4E69CF693A 

1 " : FOR I =0TO 1 999 : NEXT 

1290 F0RJ=1T06:PRESETC72, 100 ) : F0RI=1T014 

: PRI NTS 1 . CHRSC OALC "&H"+M I DSC EMSC J ) , 1 *2- 1 

. 2 ) ) ) ; : NEXT : FORK=0TO6999 : NEXT : NEXT : GOSUB 

600:GOSUB560 

1300 FORI =0TO 13: FOR J=0TO10: COPYC 0,0)-C 15 

.15). 1T0C 16+1*16, 16+J*16),0:NEXTJ. 1 

13 10 FORI=0TO1 1 :FORJ=0TO8:COPYC32.0)-C47 

,15), 1TOC32+I*16,32 + J*16).0:NEXTJ. 1 

1320 FORI=0TO9 : FORJ=0TO6 :'COPYC 48 . )-C63 

,15), 1TOC48+I*16,48+J*16),0:NEXTJ, 1 

1330 FORI=0TO7 : FORJ=0TO4: C0PYC64, )-C79 

.15). 1TOC64+I*16,64+J*16),0:NEXTJ. 1 

1340 L I NEC 80. 80 )-C 175. 127), 1 . BF: PRESETC 8 

8. 84):PRIMTB1 . "== »8'J . ==" 

1350 PRESETC92. 100):PR1NTB1 . "PROGRAMED": 

PRbSETc 120. 108):PR1NTB1 , "BY" 

1360 PRESETC92. 1 16):PRINTB1 . "H. YAMADA. " 

1J70 PlS="V1405L2AL16GFL2GL2FLlbEDL2EL2L 

1 DDL2EFGL4FGL 1 AL 1 AL2GABL4AGL 1 AL 1 AL2GFEL4 

FEL1UL1" 

1 HB0 P2S="R1R1R2S9M5000O2L8DDDDDDDDDDDDD 

DDDDLiUDOODUDDDDDDDDDDDDDDDDDDDDDDDDDDDDD 

UUUDDDDDDDDODDDDDDDDDDDDDDDDDDDDDDDDDDDD 

UDUUUDDUDD" 

1330 PLAY PIS. "R64"+P1$,P2$ 

1400 GOTU1400 

1410 ' GRAPHIC CHARACTER 

1420 DATA 2222. A222.222A. 2222, 7424, 4DBB, 
BBD4 . 4247 . 7727 . D73E . E37D, 7277 , 7724 
1430 DATA 3443. 3443, 4277. 342B.B57D.D75B. 
B243 . E32B . 3ED4 . 4DE3 , B23E , D3A4 , 74B3 
1440 DATA 3B47.4A3D.742D.475E.E574.D247. 
742D , 475E . E574 . D247 . D3A4 . 74B3 . 3B47 
1450 DATA 4A3D.E32B.3ED4.4DE3.B2JE.342B. 
B57D, D75B. B243 . 7 724 , 3443 , 3443 .4277 
1460 DATA 7727. D73E.E37D, 7277, 7424, 4DBB. 
BbD4. 4247. 2222. A222. 222 A, 2222 
1470 DATA 6666.6666.6666.6666,9663.9999, 
9669,9999,9999,9669.9999,9669,9669 
1480 DATA 9999,9669.9999,6666,6666.6666, 
6666.9999.9669,9999,9669,3669.9999 
1490 DATA 9669.9999,9999,9669.9999.9669, 
6666.6666.6666.6666,9669,9999.9669 
1500 DATA 9999,9999,9669.9999,9669.9669, 
9993. 9669. 9999, 6666. 6666. 6666.666b 
1510 DATA 9999.9669,9999,9669,9669.9993, 
9669 . 9999 . 9999 , 9669 . 9999 . 9669 
1520 DATA 6666. 1 1 1 1 . 1 1 1 1 ,6666. 9169. EEEE, 
EEEE.33 19. 1 E99 . BBBB . BBBB. 96E 1 . EB6 1 
1530 DATA BBBB. 1BBE, 19BE.EB61 .BBBB. EBB1 . 
1 6BE . EE9 1 . BBBB . BBBB , 1 bEE , EBb 1 , EEEE 
1 54U DATA EEEE , 1 3BE , EB9 1 . BBBB . BBBB , 1 6BE . 
EEb 1 . BBBB . BBBB . 1 6FE , EBb 1 . EEEE . EEEE 
1550 DATA 19BE.EB91 .BBBB. BBBB. 16BE.EE6 1 , 
BBBb.BBBb, 19EE.EB6 1 .EEEE, EEEE, 16BE 
1560 DATA EB3 1 .BBBB.BBBB. 16BE. 1E69. BBBB, 
BBBB.99E1 , 9 1 99 , EEEE . EEEE, 96 1 9 
1570 DATA 6666. 1 1 1 1 . 1 1 1 1 .6bbb.3 163.EEEE. 
EEEE .3919, 1 E99 . CCCC , CCCC . 36E 1 , EC6 1 
1580 DATA CCCC. 1CCE, 19CE.EC61 .CCCC, ECC 1 , 
lbCE.EE91 , CCCC, CCCC, 16EE.EC61 .EEEE 
1530 DATA EEEE, 19CE.EC91 .CCCC. CCCC, 16CE, 
EE6 1 . CCCC . CCCC , 1 6FE , EC6 1 . EEEE , EEEE 
1600 DATA 19CE.EC91 .CCCC. CCCC. 16CE.EE61 . 
CCCC , CCCC , 1 9EE , EC6 1 , EEEE , EEEE , 1 6CE 
1610 DATA EC91 .CCCC, CCCC. 16CE, 1E69. CCCC, 
CCCC , 99E 1.9199, EEEE . EEEE ,9619 
1620 DATA 6666, 1 1 1 1 . 11 1 1 ,6666. 9169. EEEE. 
EEEE. 39 19', 1E93 . DDDD. DDDD . 96E 1 . ED6 1 
1630 DATA DDDD. 1 DDE. 19DE.ED61 .DDDD, EDD1 . 
16UE.EE9 1 .DDDD, DDDD. 16EE.ED6 1 .EEEE 
1640 DATA EEEE. 13DE.ED91 .DDDD. DDDD. 16DE. 
Ebb 1 . DDDD . DDDD . 1 6FE . ED6 1 . EEEE . EEEE 
1650 DATA 19DE.ED9 1 .DDDD, DDDD. 16DE.EE61 , 
DDDD . UUUD . 1 9EE . ED6 1 . EEEE . EEEE . 1 6DE 
lbb0 DATA ED91 .DDDD. DDDD. 16DE. 1E69. DDDD. 
DUDU . 3 3E 1 . 9 1 39 . EEEE . EEEE .9619 
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1678 DATA 

eiaa. 1339 
ibaa data 

1E5 1 . EAB1 
1690 DATA 
1AE1 .D414 
1700 DATA 
1441 , 1441 
1710 DATA 
9641 . 191E 
1720 DATA 
9669.3999 
1730 DATA 
1666.7191 
1740 DATA 
8888 .8888 
1751B DATA 
.8886 
1760 DATA 
7161.7191 
1770 DATA 
8788.9919 
1780 DATA 
b666.9199 
1790 DATA 
6666.8817 
1800 UATA 
8878 .8788 
1810 DA I A 
8888.937 1 
1820 UATA 
I 1 Li 1 . 8 1 7 1 
1830 DATA 
1 17D.81 1 1 
1840 DATA 
1 1 ID. 1681 . 
1850 DATA 
1381 . 1881 . 
1860 DATA 
1 1D1 ,8171 , 
1870 DATA 
IEEE. 99 19. 
1880 DATA 
6616.9199, 
1390 DATA 
1A66. AA5A, 
1900 DATA 
1E1A. A1E1 . 

19 10 DATA 
88E8.93E1 . 
1920 DATA 
IEEE. 9919, 
I 93a DATA 
6616,9199. 
1940 DATA 
lAbb.8858. 
1950 DATA 
83A5.5A88. 
1960 DATA 
83E8.99E1 . 
1970 DATA 
EEE1 .9919. 
1980 DATA 
66E1 .9999. 
1990 DATA 
1 161 . 1A1 1 . 

2000 DATA 
AAAA. AA1A, 

20 10 DATA 
E888. 198E. 
2020 DATA 
96E1 .9999. 
20 30 DATA 
6666,9199, 
2040 DATA 
88b 1 , AAA5. 
2000 DATA 
A1AA. AAAA. 
2060 DATA 
168E.9999. 



6666 
. 1 1 IE 
A1AA 
.A1AA 
AE1 1 
.414D 
Bl 1 1 
.9841 
1E99 
.E191 
6666 
.9993 
9999 
.7161 
8717 
.8888 
8888 
.8888 
8717 
, 1933 
6666 
, 1799 
8878 
.8878 
8888 
.7188 
39 13 
3913 
9199 
3 139, 
1111. 
1111. 
D 1 7 1 , 
7111. 
71 18. 
1881 , 
1 1D8. 
117D. 
1111. 
1111, 
6666, 
.9199, 
11E1, 
EEEE. 
A1EE. 
A5AA. 
99A1 . 
33 19. 
9133. 
1E99. 
6666. 
9133. 
EbEE. 
EEEE. 
A1EE. 
8588, 
39A1 , 
3313, 
9199. 
1E99, 
6666, 
9999, 
1E99, 
EE61 , 
1AEE, 
5AAA. 
1918. 
1388, 
3999. 
9399. 
6666. 
1E99. 
EEEE, 
El IE, 
96E1 . 
1 1A1 . 
E1EE. 
191 1. 
1E39. 
EE91 . 



. 1 161 . 161 1 .6666,9161 ,A1 IE, 
,EA5A,A51E,E1 1 1 . lfclb 
. AAAA , B 1 E 1 , 1 5E 1 , AAAE , EA 1 A , 
.AAAA. 1BAE.5AE1 , 11EA 
, 1 EA5 , EAB 1 . 44A 1 . 1 A44 , 1 BAE , 
. 1 EA 1 . 1 1 1 B , 4444 , 4444 
,E491 .E441 . 144E. 194E, 1463. 
,6166.4444.4444.9913 
.4E1 1 . 1 1E4.66E1 .E161 . 1493, 
,3163.3313, 16 IE 
6666 , 6666 . 6666 . 9669 . 9999 . 
3663.9939,9669.9669 
9669.9399. 1666. 1666. 1666. 
7191 .7161 ,8717.8717 
87 17,8878.8878.8878.8878. 
8888.8868.8888.8888 
8888.8888.8888.8888,8888. 
8878.8878.8878.8878 
8717.8717.8717.7161 .7131 . 

1669. 1399. 1669 
8817,7188,6666,9169,8878, 

8888,8888.9671 .9169 

,9919.6666.8617,7188, 
.3613, 1763.8888 
.9199.8878,8788.9613. 
.9169.8878,8788 
.8888.8886.9671 .9169. 
.8817,7188,6666 
.8786,9619, 1769.8888, 



2080 DATA 
1111511111 



1 1 
00001 



8788 

8788 

3371 

6666 

1799 

6666 

3878 

8878 

1111. 

81D8. 

171D. 

1 1 17. 

11D8. 

Dill. 

8111. 

1117, 

8 1D8. 

1111. 

1116, 

EEEE, 

1E1 1 . 

EEEE. 

9999. 

66A1. 

1A99, 

6166. 

EEEE. 

EEEE. 

1116. 

EEEE. 

EEEE. 

EEEE. 

3339. 

66A1, 

1A33, 

6166, 

EEEE. 

EEEE, 

6166. 

EE61 , 

EEEE. 

El IE, 

93A1 . 

1688. 

EE1E. 

6666. 

1E69. 

EE6 1 . 

6111. 

EEEE. 

3bEl . 

19FE, 

33 33 . 

1611, 

8131 . 

8861 , 

888E. 

EEEE, 

ST 

1 1 1 10 
11121 



.8788.9613 
,1111.1111 
.8D18. 1111 
. 7 1 1 1 . D7 1 1 
. 1 1 13.8D11 
. 1 1 ID. 1881 



8D1 1 
7111 
D117 
8018 
1111 
6111 



1718, 1D1 1 . 
1 1 17 

1881 , 1881 , 
81 17 

1881 .Dill, 
8117.7118 



1 1 1 7 , 1 1 1 8 , D7 1 1 , 
171D.711 1 
1 1 1 1 . 1718, 1D1 1 , 
1111 

6666, 9169, EEE1 . 
EEEE. 9619, 9163 
93 19, 6 166, EEEE, EEEE, 
3619, 3663, EE1A 
9199. 1 1A5.5A1 1 ,9619, 
1A69.EEA1 , 1AEE 
EEA5.5AEE.96A1 .9163. 
AEAA. AAEA.66 16 
EEEE, 3613, 1E63.8E88. 
EEEE.96E1 

61 1 1 ,6666, 9169. EEE1 . 
EEEE, 9619. 3169 
99 19, 6 166. EEEE. EEEE, 
9619. 9669. EE1A 
9 199, AAAA . AAAA ,9613. 
1A63, 18A8.8A81 
88A8.8A88.96A1 ,9169, 
AAAA, AAAA, 66 16 
EEEE. 9619, 1E69,8E88. 
EEEE.96E1 

11 16.6666,9663, 1E99, 
EEEE.96E1 .9669 
99E1 .6666, 1E66.EEEE, 
9619,9669, 1E99 
9939.3163. A5E1 ,9681 , 
EE1E.AAEE. A515 
A1EE. 1AAA. 1618.1161, 

1E1 1 ,AEEE, 1688 
E888.96E1 .9669.E891 . 
EEEE. 16EE 
6616.6666,9169, IEEE. 

19EE.9669. 1E69 
3339. 1E66.EEEE.66E1 . 

9669. 1A69.EEA1 

1899, 1E5A, 9319, 9663, 

8161 .515A.EEAA 

AAA1 ,EE1A.E1EE,8861 . 

EEEA. 1 1E1 .6666 

99E1 .9669.E861 .888E. 

19EE.9669 

AGE DATA 

00005121 121500151 1 1 1 

5100001512221 100001 1 



222 1 1 10000 11 1211111111111113121111213191 

1111111111.6.4 

2090 DATA 042110011240115111131111151111 

5 1 1 1 1 10 10 1 1 12 1 10 100301 1 1 12503003 152 1 1 1 1 1 

301 101 121 1 101 1 1000 15 1 10001 1 10131 11 101 191 

1111111111.6.4 

2100 DATA 151515151515111111111111131313 

33 13131333 13 11131312221222 112 113 13111313 

131313133313131111111 11111 1515151515159 1 

1111111111. 12,6 

2110 DATA 113445544311100351153001301123 

32 1 1031 1 101 1 1 101 1 1 151005 100 1 1111 100 1500 1 

5 1 1 1403 1 13041 1300 12 1 12 100310021331200191 

3 13 1 13 13 11,8.8 

2120 DATA 151143311050513141201515131122 

5001111112112111114421101111113111111110 

1 131001 1 1 103101 1 11 10103051 101 1001 1 1 13591 
10000 10150.3.8 

2130 DATA 5111125111111110011H111310002 
2000 1 1 131 1 1 1 1 1001 15 1 1000 13501 1441 1005315 
3112511035101131251111001113125150001 13 1 
31521 1 1 1 1 1 . 12.8 

2 140 DATA 011141141110141111111141110511 
511811 1000231 10001 1 155300151 11111 130031 1 

1 1 105223322501 1 1035555301 1 14131 11 1314191 

1 11 1 1 11 1 10. 1 1,8 

2150 DATA 511110011215133304402131212311 
1 13212110111 1 11015005351 15350000 1 1 1051 1 1 
001 101 1511 101 1 111 1215231 121 11 101 181 13131 
1 1 1001 1*214, 10.8 

2160 DATA 415411311535152141415231123251 
41251511251111121141511 1 1 11111 111 1 144532 
11110 1 12215031 1 1041001 15151 10131 131 1 1 131 
141001 1 1 14. 14,8 

2170 DATA 000000324115000003241114000032 
41 1 1420003241 1 1423003241 1 1423003241 1 1423 
003241 1 142 3000241 1 1423000041 1 1423000009 1 
1423000000. 1 . 1 



FLOOR5 




Mittmz 105 ^-^(zjfK 



1 SCREEM0 : W 1 DTH40 : COLOR 15.1.1: KEYOFF 

20 _MUS1C' 1.0.1.1 J:DEF1MTA-Z:GUSUB640 

30 ONINTERVAL=60GOSUB660 

40 LuCATE 14 , 12 : PRINT" CHANGE 01 1 " : LOCATE 1 4 
. 15:PRINT"CHANGE OFF " : S=ST I CKa0 ) : CH=CH+< 

S=5.>*(CH- 1>-C5=1>*CCH>B) 

58 LOCATE12. 12+CH*3 : PRINT"*" : LOCATE12. 15 

-CH*3:PEUNT" ": 1FSTRIG<0 ,=0THEN40 

68 iL-> : FOR 1 = 1T02 

70 L0CATE9.4:PR1NT"^ FLOOR 5 ;•'" : L0CATE9 , 
10:PR1NT'1NPUT PLAYER": I: "NAME": INFUTAS 

80 IFAS=""ANDI = lTHENAS="9t'\ ! ! "ELSE IFA$= 
""THENAS="ttiin" VV " 

90 I1ASC 1-1 )=MIDS(AS. 1 . 8 ->:CLS: £$="".: NEXT 

100 SCREEN5.2.8:0PEN"GRP:"ASH1 

110 FL=1 : RESTORE 150: I NTERVALON 

120 FORI=0TO4: REAOAS: FORJ=0TO3 1 : B$=B$+CH 

RSC VALC "&H"+M1D$< AS. J*2+l . 2 ) ) ) 

130 NEXT:SPRITE$C I )=BS: B$=" " : NExT 

140 C0L0R=C4,7,7.7):C0LQR=C5.5, 1,4) 

150 DATA FFFFFEF8F0E0E0C0C08080800000000 

0F08000000000000000B0808000000000 

160 DA1A 0F01000000000000000000000000000 

l^[-FFF 7 F1F0F0 707030301010100000000 

170 UATA 00000000808080C0C0E0E0F0F8FbFFF 

H0000000000000000000000000^>8060F0 

180 DATA 00000000000000000000000000000 10 

1-0000000001010 1030307070F1F7FFFFF 

198 DATA 0000000000000 10 1030505050003030 

.100 00 00 000 00 08080 E0A0A0A080 404040 

200 SETPAGE0, 1 :L1NEC0,8)-C255.21 1 > . 2 . BF : 

SETPAGE0 . 3 : GOSUB480 

2 1 SETPAGE . : READAS : PRESET c. 80 . 35 ) : PR I NT 

B1.AS+" FLOOR ":GOSUB540: SETPAGE. 

220 FOR1=0TO1 :PUTSPR1TE0+1 . C50+ 1 * 1 00 . 59 ) 



. 1,0:PUTSPRITE2+ I. (67+1*188. 59). 1 . 1 
230 PUTSPR1TE4+1 . C50+ I * 100 . 76 ) . 1 , 2 : PUTSP 
RITE6+I , <67+l*lB8,76), 1 , 3 : PUTSPR1TE8+1 . < 
60+1*100.64), 1 0-1*2, 4: NEXT : SETPAGE0 , 1 
240 xC8)=15:XCl )=163:YC0)=168:YC1 ) = 16 

258 " MAIN 

260 FORW=0TO 1 4 : FORC= 1 T07 : FOR I =0TO 1 

278 S=ST1CK< 1 ):Xx< 1 )=XC I ) + C CS=7 )-CS=3 ) )* 

4: YYC I )=YC1 ) + CCS=l )-CS=5))*4 

280 ft=POIMTCXX<l>,YY< I>) 

230 ONA-1GOSUB340.350.360.360 

300 COPYCxC I )~16,YC I >-lG>-CX< I )+16, Y>. 1 .' + 

16). 1TOC50+I*188.68).B 

3 10 NExT:COLOR=<-3.0.8.C) 

320 NEXTC.W; IFCH=BORFL=4THENSWAPa>.0)./,C 1 

>:SWAPYCfi),Y< 1 ) : GOl 026BELSE268 

330 ■ SUB 

340 RETURN 

350 r-x I )=XX< I ) : YC 1 )=YYC I ) : RETURN 

360 GOSUB350: IFC A=4AND1=0 )0R< A=5ANDl = l )T 

HEN37BELSERETURN 

370 IK 1 )=NC I ) + l :PAINT(X< I ).Y< I )).3.3 

380 COPYC0. 198+1*18 )-(6. 1*10+195 ), 3TOC 25 

+1*1B8+NC I )*18. 128). B 

390 F0RJ=BT03:C0L0R=< 1 , 7 , 7 , 7 ) :FORK=BT012 

:NEXT:C0L0R=C 1 . B . B , B ) : FORK=8TO120 : NE Tk 

.J: 1FNC I )=5THENRETURN400ELSERETURN 

400 ' CLEAR 

410 SETPAGE. 0: PRESETC50. 1 30+FL* 10 .' : PR 1 N T 

HI . "FLOOR" ;FL;NA$< 1 ):NC0)=B:NC 1 )=0:LINEC 

20. 120)-».250. 129). 1 .BF 

420 WC 1 )=W< I )+l:FL=FL+l: IFFL=6THENFOR1=0 

TO900 : NEXT : GOTO430ELSE2 18 

430 IFWCBXWC 1 )THENA=1ELSEA=8 

440 MU=1 :MT=B:SCREEN5:COLOR=< 15.B,8.8):P 

RESET C 8 , 8 ) : PR I NTH 1 . " W 1 IJNER" : PRESET ( . 1 B ) 

:PR1NTR1 . NASCA) 

458 FORI=BT017:FORJ=BT063:A=POINTC3. 1 ) : I 

FA= 1 THENNEXT J . 1 ELSEL I NEC 40+ J*3 , 70+ 1 *5 )-< 

42+3*3.74+I*5).RND( 1 )*18+3 . BF: NEXT J . 1 

460 F0R1=3T012:A=RND< 1 )*8 : B=RNDC 1 )*7+l :C 

=RMD( 1 )*8 : COLOR=C 1 . A, B. C) : NEXT : GOTO460 

470 CHARACTER 

480 SETPAGE0. 3: READAS 

490 F0RI=8T068STEP4:F0RJ=8T0J 

508 A=ASCCMIDS<:AS. l+J+l , 1 )):LINECJ*8. 1*2 

>-< 3*8+7. 1*2+7). A-46,BF:NExT3. 1 

5 10 L1NEC0. 198)-C10.218).0.BF:FOR1=BTO1: 

C1RCLEC3. 193+1*1B),2,4+I:PAINT<3, 193+1*1 

) . 4+ 1 . 4+ 1 : NEXT : RETURN 

520 DATA1 1 11 1 1 IB 1 101 1 IBB IB 1 1 10 IB 1B0 11000 

01 1101 IBB 1010100001 1001 0000 10000 

530 ' MAP 

540 ST=STR1G(0)ORSTRIGC 1 ) : SETPAGE-ST , 1 :L 

I NEC 15, 15 >-C 174, 174 5,3, BF 

550 1FFL=2THEN57BELSE1FFL=4THENL1NE<88, 1 

5)-C33, 175),2,BF:GOTO570 

56B FOR I=8T04: READAS: FORJ=BTO 1 9 : AS=ASCC M 

1DSCAS, J+l . 1))-65:C0PYCB,AS*8)-C3 1 .AS*8+ 

7).3T0C 15+1*32. 15+J*8), 1 : NEXT J , I 

570 FOR1=0TO1 :F0RJ=BT04 

580 A=RND<-TIME)*2B:B=RNDC1)*28: IFNOTCPO 

1 NT CA*8+1 8.6*8+1 8 )=3)THEN580 

590 COPYC0. 190+I*10)-C7. 197+1*10 ). 3T0C A* 

8+15.B*8+15), 1,1PSET:NEXTJ, 1 : RETURN 

600 DATAF 1 RST , ACCBBAAABBBBAABBBABA . AAEFF 

KAAOAAOAAEEEAEA . ALKDCDAAAAP J J JNAAAAA , AKC 

KCLAAADCCCABBBBBA , AAAAAOAAAOKKKAOAOAOA 

6 1 DATANOTH 1 NG , KYOTO . AABABABABABABABABA 

AA.AAFAFAFAFAFAFAFAFAAA.AAFAFAFAFAFAFAFA 

FAAA 

620 DATAAAFAFAFAFAFAFAFAFAAA . AAEAEAEAEAE 

AEAEAEAAA . CHANGE . F I NAL 

630 DATAAHFEHAHFFEFFBPHALLLA . DKKCOGGAOCK 

CO AHFBGOA , PAOKKKKK I PAPMMEBNBPM . D I LKKL I P 1 

LDOAKLKCKKC , OAOOAPAOAKLLAKOCKKOA 

648 RESTORE65B:FORl=BT01 : FORJ=8T09 : READM 

USC I . J ) : NEXTJ , I : RETURN 

65B DATAV12T12BL8EFGF.GGGG.GFED.GFFF, >FF 

FF , >EEEE . <.CCCC , <FFFF , F2 . E4A4 , V 1 2T 1 2BL206 

®4BE.B.C.D,E,F,C,C,D,F 

66B PLAYH2,MUSCMU,MT).MUSCMU.MT) 

670 MT=CMT+1 )M0D1B: RETURN 
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